

7 / 


CNASA-CB-153898) PBOVIMG THE COBBECTNESS OF N77-29826 

THE fLIGlT RifiECTCH PBOGBAM EADIFD, VOLOME 1 
(Geocqe KashiEqV:on Univ.) 127 p HC A07/MF 
ini CSCL 09B Uoci-as 

G3/61 42S84 

STUDENTS FACULTY STUDY R 
ESEARCH DEVELOPMENT FUT 
URE CAREER CREATIVITY CC 
MMUNITY LE 
NOLOGY FR 
ENGINEERING 
GEORGE 


tpH 

M 




/ 

'‘i? 


/5UG 1S77 

RECEIVED 
NASA 3 T 1 FAUILirY 
*NPUT BRANCH 










SCHOOL OF ENGINEERING 
AND APPLIED SCIENCE 


THIS DOCUMENT HAS BEEN APPROVED FOR PUBLIC RELEASE AND ^'.Lf, ITi DISTRIBUTION IS UNLIMITED 




Proving the Correctness o£ the Flight Director 

Program EADIFD 


Volume One 


By 

Frank J. Lee 

Department o£ Electrical Engineering 

a 

Computer Science 

School o£ Engineering § Applied Science 
The George Washington University 


July 1977 


' I 

r! 

il 


I 

table of contents 

Page No. 

General Description of EADIFD ........ 1 

C4000 Conputer Data Representation and 

I . o 

Instructions ^ 

The C4000 Assembly Language Verifier ..... 6 

The Verification Condition Generator 8 

The Proof Checker 

The Proof of EADIFD 15 

Input and Output Files 20 

I I 

ACKNOWLEDGMENTS 

REFERENCES 

APPENDICES: 

I. Listing of EADIFD 

II. Specifications of EADIFD 

III. (1) Listing of the Verifier Program 

(2) Theorem Library 

(3) Abbreviation Definitions 

(4) Proofs 

(a) Paths 1-29 (Bound separately; see Volume Two) 

(b) Paths 30-58 (Bound separately; see Volume Three) 






: -v.-t 


PR07ISG THE CORRECTNESS OF THE FLIGHT DIRECTOR 

PROGRAM EAPIFD 


Gen ec al ngscrip tion of EADIFD 


EADIFD is written in Litton C4000 symbolic assembly 
languags for sxecation on the C4000 airborne computer, which 
performs navigation and guidance computations. Developed at 
the NASA Langley Research Center, EADIFD has 272 assembly 
instructions and is a subprogram of a navxgatxon and 
guidance program. A- listing of EADIFD is given in Appendix 
I. The C4000 conputec, a general purpose computer with 32K 
memory, a 24-bit word size, parallel fractional machxne, xs 
a part of tha aavigation/guidance system, which, in turn, is 
a subsystem of an RSFS (Research Support Flight System) in 

a modified Boeing 737 airplane. 

Basically, the lateral control law and vertical 
control la« are implemented in EADIFD using earth-raferanced 
navigation parameters such as flight path angle, track 
angle, and ground speed computed by the C40QO computer. The 
lateral control law is a second order differential eguation 
of lateral displacement from localizer beam, and the 
vertical control'law is a first ordar diffarential equation 
Of vertical displacement from localizer beam. 

Tha purpose of EADIFD is to generate pitch and roll 
command signals to be used fay the flight control computers 
in an RSFS and by the autothrottle servo, for more af;.icxent 
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ani ac 33 ptabl 3 operations in the terminal area of the 
airspace system. Two binary state variables are also set to 
iniicata the states of the corresponding commands at various 

ORIGINAL PAGE IS 
OP POOR QUALITY! 

C4000 CoaBHiiS Ins^ctions 


The C4000 data word length is 24 bits. Twos' 
complement arithmetic is used in the binary representation 
of fixed point numbers. In C4000 assembly instructions, a 
decimal operand contains a fraction and a binary point 
indicator, which is a "B« followed by a decimal number 
ranging from 0 through 23. This indicator tells the 
assembler where the binary point (counting from the left) is 
to fall within the binary data word. (BO means that the 
binary point is just to the right of the sign bit.) For a 
quantity scaled Bn, if k is the machine number and X is the 
number in the problem, then X = R*2**n. Bach guantity in the 
problem is scaled down to the ra nge from -1. to 1. with 1. 
excludei, to be stored in the machine. An octal operand is 
specifiei by placing the letter "0« in front of the octal 

number. 

Since the C4000 computer is a fractional binary 
machine, the location of the oinary point during tie 
computations must be kept track of. The location of the 
binary point in a data word is called the scale of the data 
word. Where decimal operands are concerned, addition and 
subtraction must involve quantities with equal scales, and 
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multiplication and division will produce results with; new 
scales. In order to handle these consistently, the verifier 
treats all actual quantities with scale Bn in registers and 
memory iDcatlons as integers, and regards all represented 
quantities as having been multiplied by 2**(23-n) . After 
this trinsforiation , all the quantities in EADIFD can be 
manipulated with integer arithmetic. For example, we could 
have X*2»‘*S + Y*2**S = (X+Y)*2**S and X*2**S1/Y*2**S2 = 

(X/Y) ♦2**(S1-S2) . 

The complete list and descriptions of the standard 
C4000 assembly instructions can be found in [ U . Those 
instructions used in EADIFD and their algebraic equivalents 
are listed as follows; 


ADD Y 


ADS Y 


DIV Y 
LDA Y 
LD2 Y 
MPY Y 


SAL 


SAR K 


SEX Y 
SLL K 


$AC==ABS ($AC) 

[R ($AG+Y) ] ; $AC = $AC+Y 
or $AC=^N (SAC+Y) 

tR($AC+Y)l; $AC=$AC+Y; Y=$AC 
or $AC=N ($AC + Y) ; Y = $AC 
$AC=-$AC 

lABS($AC).LT.ABS(Y)] ; $AC=$AC/Y 

$AC=Y 

$!1(2=Y 

$MQ=M(JLT ($AC*Y) ; $ AC= . UNDEFIN ED. 
iR (6AC* 2**K) ] ; $AC = $AC *2**K 
$AC=$AC/2**K 
Y=$RA 

[ DIR ($AQ*2**K) ] ; $AQ=$AQ*2**K 


STA Y 


Y=$MQ 
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ST3 

I 


Y=$MQ 






SUB 

y 


[R($AC- 

Y)1 

; $/iC=$AC-Y 






or 

Y=N($ AC 

-Y) 





TNZ 

L 


$RA-*; 

IF 

(SAC .NE. 0) 

GO 

TO 

L 

TRA 

L 


$RA=* ; 

GO 

TO L 




TRH 

L 


$RA=* ; 

IF 

(SAC .LT.O) 

GO 

TO 

L 

TRP 

L 


$RA=*; 

IF 

(SAC.GE. 0) 

GO 

TO 

L 

TRZ 

L 


$RA=*: 

IF 

(SAC. EQ. 0) 

GO 

TO 

L 


with: 

$AC — A^cumalator 

$M3 -- 3uotient Register 

and $MQ, considered as a double register 

$RA — Cell 20 (octal) 

« — Location of this instruction word" +1. 

The function MULT takes the least significant bits of the 
resulting double length product as its value. The function 
N(x) = IE X >= 2**23 then X-2**24 els^ if X < -2**23 then 
X+2**24 else X. The predicate H(Y) is equivalent to (-2**23 
<= Y < 2**231 r and the predicate DIR(Z) is equivalent to 

(_2*#47 <= Z < 2**47). 

Both direct addressing and indirect addressing are 
used to fetch an operand from memory. Indirect addressing 
is indicated by appending a "*" to an instruction. For 
example, if an instruction TEA* L is used at the end. of a 
subroutine, it will cause a transfer to the return address 
in cell 20 (octal) , loaded by ' the corresponding SEX L 
instructioa at the beginning of the subroutine. 

R astcictions, which Must hold in order foe an 


instruction to be executed properly, are enclosed in 
brackets and placed in front of the corresponding algebraic 
equivalent. Consider the arithmetic instruction ADD Y, which 
adds ths contents of the effective memory location Y to the 
contents of the accumulator, the resulting sum replacing the 
contents of the accumulator. If both numbers have the same 
sign, but the sign of the result is opposite , then the 
machine’s capacity has been exceeded. The sum, although 
determinate, is not correct; the machine will not flag the 
occurrence of this overflow. In order to prove this 

situation never arises, we put R ($AC + Y) as the restriction 

of tie instruction ADD Y, which means that R (SAC+Y) must be 

true before we can carry out the operation $AC=$AC+Y. 

However, in EADIFD, some additions and subtractions 
concerned with quantities representing angles, with scale 
BO, do produce overflow on purpose. This operation works 
because aiding or subtracting 360 degrees produces no change 
in an angle; the answer is still correct, whether or not 
overflow occurred. All problem angles in degrees are scaled 
down to the range from -1. to 1. with 1. excluded, by 
dividing 180 degrees, 0 degrees, 90 degrees, -90 degrees, 
and —130 degrees scaled at BO will have their machine 
representation as OOOOOOOOO, O200000Q0, O60000D00, and 

040000000, respectively. 270 degrees has the same mac hire 
r eores ent ation as -90 degrees. Adding 90 degrees to 270 

degrees produces 360 degrees, which is equivalent to 0 
degrees. The, machine result of adding O2000 0000 to. 
O600000Q0 is OOOOOOOOO, Which is the same as the machine 
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representation of 0 degrees scaled at BO, even though an 
overflow accurrel. If this is the case in an instruction, 
then we apply the N function to its operands in the 
equivalent. Por atample, $AC=N($AC+Y) is the other form of 
equivalent for the instruction ADD I when the 360 degree 
wraparound is wanted* 

Subroutine SRLMT is called by EADIFD at various 
places. It computes the function SRLMT (SIGNAL, LIMIT) = if 
SIGNAL > LIMIT then LIMIT else if SIGNAL < -LIMIT thgn 
-LIMIT else SIGNAL. The subroutine has been proved correct 
[2]. A transfer to SRLMT is interpreted as the assignment 
$AC=SRLM7 ($AC,S MQ) , together with setting the Q register and 

' j ' ■ 

the three scratch registers (LMTSCR,LMTSCR+1 ,LMT'scr+ 2) to 
uniafinei quantities. The value of SRLMT (SAC , $M3) is 
obtained by substituting SAC for SIGNAL and SMQ for LIMIT in 
the above definition. 

The C4Q00 Assesbl y La nguage Verifier 

Theoretically, the proof of EADIFD is based on the 
inductive assertion method of Floyd [3]. A C4000 assembly 
language program verifier written in SNOBOL has been built 
with the techniques developed in [2]. It consists of two 
parts; a verification condition generator and a source, 
language independent proof checke r. 

The verification condition generator takes source 
programs with assertions as input, and ganerates a set of 
verifioation"^ conditions as’ output. The modification index 
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aethod [4, 5], which appends a digit to the name of each 
variable in a program, is used in the construction of 
verification conditions. The unique identifier thereby 
created distinguishes different values that a variable may 
have at different points in a control path. Assertions are 
predicates whici describe the behavior of a program at 
various points; verification conditions are predicates 
which discribe the behavior of program control paths. A 
control path starts with an initial assertion, continues 
with executable instructions, and ends ' with a final 
assertion. Verification conditions generated by the system 
have the following form: Hypotheses .IMP. Conclusions, 

where .IMP. stands for '•implies”. A control path is correct 
if the corresponding verification condition is true. A 
program is correct if and only if it terminates and all the 

control paths are correct. 

The method that we use to prove that a program 
terminates is ' to. assign termination sequences, which are 
non-negative integer expressions, to each assertion point 
and to show that the termination sequence condition of every 
control path holds. The termination sequence condition cf a 
control path is a predicate in the verification condition of 
the control path generated by the system, which says that 
the value of the termination sequence at the final assertion 
point of the control path is always lexicographically less 
then the value of the termination sequence at the initial 

assertion point of the control path. 

The proof checker checks the validity of each 
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deduction statement in the proof procedure of every 
verification roniition* A deduction statement is essentially 
a call to a known deduction theorem of certain kinds in the 
theorem library with actual parameters substituted for 
corresponding formal pa rameters. ' For example^ the rule of 
inferensa (modus ponens) of first order logic from (A .IMP. 
B) and A to infer B is stated in the theorem library as: 


ISPl(Ar8)=(A.lMP.B),A.IMP.B ' 

A deduction statement like IMP1(C,D) is ^ call to the 
library theorem by the name of IMPI with c and D 
corresponding respectively to the formal parameters A and B. 
The theorem library is a collection of known theorems of 
different classes such . as integer arithmetic, logical 
theorems, rule of substitutions, etc. The proof checker then 
examines the substituted theorem to see whether the 
hypotheses of the theorem are among the hypotheses known at 
the present time. If so, the conclusion of the theorem is 
deduced as an intermediate result or as a conclusion which 
may be used as a hypothesis in further deductions. At the 
end of a proof procedure, the proof checker will declare the 
truth or the falsity of the verification condition, 
depending upon whether all the conclusions in that 
verification condition have been deduced or not. 

The Veri f i catiop Condiii on' Generator 


The verification condition generator for C4000 
assembly language programs generates verification cDnditxons 
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in two steps. The first step is to read in the source 
program, the specifications, and the scales of the program 
variables; to parse the source program statement-by- 

statanant; aad to build up data bases for later uses. The 
second step is to generate the verification condition for 
each control path, starting with an initial assertion and 
ending with a fina* assertion, by scanning over the source 

program. j 

In the first step^ if the syntax of a statement is 

I 

corract and tha operands concerned are compatible in types 
and in scales, then the source stateaiant, its restriction 
(if any) , its algebraic equivalent, its operand, and the 
type of the statement are recorded in a two-dimensional 
source statamant artayi. Otherwise, some error messages are 
printed out, and the process skips to the next source 
statement. Tha reason that soucre statements are also 
recorded is that we want to be able to txfsce every statement 
and averv condition in each control path. However, the entry 
for source statements in the source statement array can; be 
alirainatei, if space available is critical, k symbol rable, 
a symbol index table, a label index table, and an assertion 
table are constructed during tha process by examining the 
label field and the operand . fie Id of a source statement. 
The symool table is a two-dimensional array which stores 
attributes, such as the scale, the type, and the current 
modification index of each source program variable. The 
symbol index table associates the name of a variable with 
its index i.i the symbol hable; this structure is used so 
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that tha symbol table entry can be accessed directly later 
without searching the array. The label index table 

associates a label with its location (index) in the source 
statement T.rray . The assertion table is a two-dimenisonal 
array, which. stores the text of each assertion and the index 
of its corresponding assertion point in the source statement 
array; an assertion at an assertion point is attached to the 

next source statement in a program by the system, as the 

predicate which must hold before the execution of this 
source statement. 

The algorithm to generate all the verification 
conditions of a program is stated step by step below. In 
what follows: 

Cl denotes the current index to the source 

statement. 

CS denotes the current source statement 
corresponding to Cl. 

CAP denotes the number of current assertion point. 

ASSERT denotes the assertion table with 

ASSERT (CAP, 1) as the text of - the CAP-th assertion and 
ASSE3T (CAP , 2| as the index of the CAP-th assertion point 
to the source statement array. 

HYP3TSESES denotes the list of Current hypotheses. 

CONCLUSIONS denotes the list of current conclusions. 

C0ND3 denotes the list of current conditions. 

STACX is an array used by the generator to keep the 
indices, the hypotheses, the conclusions, and the entry 
point of each conditional branch point in the process of 
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verification condition generation. 

ffa suppose that the program to be verified has an 
initial assertion at the beginning, and a final assertion at 
each exit point. 

1. Initialize CAP and the modification indices of 
all variables in the symbol table to be zero. Initialize 
STAGS to be empty, 

.2. Increase CAP by 1. 

3, le CAP corresponds to the last assertion point, 
stop; the algorithm is complete. 

'4. Set hypothes es' to be ASSERT (CAP , 1 ) , Cl to be 
ASSERT (CA? ,2) , and CONCLUSIONS to be null. Go to step 6. 

5. If Cl is an assertion point, go to step 9. 

6. If CS is an unconditional transfer statement to 
label L, set Cl to be the index value of the label L stored 
in the label iniex table, and go to step 5. If CS .is a 
conditional transfer statement to label L, append the 
current mo.iifioation indices to t hose . var iables occurring in 
the condition of this conditional transfer statement; assign 
the result to CONDS; set the entry point EP to be the index 
value of the label L; save EP, HYPOTHESES and CONDS, 
CONQUISIONS, and current modification indices on STACK; 
concatenate the negation of CONDS to HYPOTHESES; and go to 
step 8. 

7. CS must be some kind of algebraic assignment 

statement at this point. If CS ha s a festriction, append the 
current modification indices to those variables occurring in 
the restriction, and concatenate: the result to CONCLUSIONS. 


Aposr.!? the current modification indices to those variables 
occurring on the right-hand side of the egual sigh in the 

i 

first algebraic equivalent of CS; increase the current 
modification iader of the variable on the left-hand side of 
the equal sign by 1; append the updated value to this 
variabla; concatenate the result to HYPOTHESES; and repeat 
the same process for the rest of the algebraic equivalents 

consecutively, if there are any left. i 

8. Increase Cl by 1, and go to step 5. 

9, Append the current modification indices to those 

variables occurring in the associated assertion, and 
concatenate the result to CONCLUSIONS. Output a verification 
condition as: HYPOTHESES .IMP. CONCLUSIONS. If STACK is 

empty, then go to step 2. Otherwise, pop up STACK; reset 
the modification index attribute of each variable in the 
symbol table, HYPOTHESES, and CONCLUSIONS to the 

corresponding saved values; load Cl with saved EP ; and go to 
step 5. 

Hit E£22f - 

Each verification condition is proved separately. A 
theorem library of known deduction theorems and a set of 
abbreviatxon definitions are the data bases of the proof 
checker. The proof checker accepts units, each composed of a 
verification condition . and a proof procedure, as input. A 
proof orpceiure contains a set of deduction statements, 
which are calls prepared by a human being to the theorems in 


the theorem library, in order to deduoe all the statements 
in the ooiiolasion part of a verification condition, with the 
corresponding hypothesis part as premises. All the 

expressiops in a proof procedure are stored in suffix 
notation to make it unnecessary to include parentheses in 
the process of pattern matching. Pattern matching is 

conducted internally with strings in suffix notation by the 
proof checker. i i 

A call expressed as MACEXP(X) will cause an 
expansion of abbreviation X to its definition, if X is 
defined in the abbreviation definition data base, and will 
append the expansion to the current premises. A call like 
MAE EXP (ZB XI TO) will expand CEXITO to (GDID 3D. N E. 0) .AND. 
(MDA. GE. H3 AD) .AND. (TIMEE . E Q . BI NTME ) as defined and will 

append "EEXITO .EQV. (GOID3D.NE.O) .AND. (MD A. GE. HR AD) .AND. 
(TI ME R. EQ. BI NTME) ” to the current premises.. 

A call like HYPEXP(Y,Z), with Y as an abbreviation 
of a list of assertions and Z as a single assertion, causes 
the system to check to see whether Z is an assertion in the 

' i 

definition of abbreviation Y. If this is true, then Z can 
be used explicitly as a premise in further deductions. 

A typical theorem in the theorem library has the 
following form: TN{A1, A2, ...> AN) = H1(A1, A2, ..., AN), 

H2(A1, A2, ..., AN), ..., HM(A1, A2, ..., AN) .IMP. E(A1, 

A 2, ... , AN) . Here TN is the name; A1, A2, ..., and AN are 

the formal parameters; H1(A1, A2, ..., AN), H2 (A 1, A2, ..., 

AN), ..., and HM(A1, A2, ..., AN) are the hypotheses; and 
C(A1, A2, ..., AN) is the conclusion of the theorem. A call 


to theoraa TN: is aiade by TN(B1, B2, BN) with B1, B2, 

•••r and BN as the actual parameters corresponding to the 
formal parameters A 1, A2, and AN. 

A call to a known theorem will cause a substitution 

i. ■ 

Of the actual parameters in the call statement for the 
formal parameters in the theorem definition. 
Before each substitution, the definition, the formal 
parameters, and the actual parameters are converted to 
form. The proof checker then checks the hypotheses of 
the substituted theorem to see whether each hypothesis is in 
ifha premises known at the present time. If so, the 
conclusion of the substituted theorem is deduced and is 
appended to the current premises. To make this process more 
clear, let us consider several theorem calls. For example, 
the call S tJB3 r 1 ( AO , BO , X , X . GT. 0) w ill produce the premise BO 
> 0, if we know that AO = BO a nd that AO > 0; since the 
theorem named SUBST1 is defined as: 

SUBST 1 (P,Q, a, A (R) ) =P. EQ.Q, A (P) . IMP. A O) 
which says that if A(R) is an assertion, P = Q, and A(P) is 
a premise, than A(Q) is also true. Suppose we need the fact 
that (A1+B1)+B1 = A1+(B1+C1); we can call the theorem A2 

with A1, 31, and Cl as the actual parameters. A2 is defined 
as: 

A2(P,2,R) = (P+Q)+R.-iQ.P+(Q+R) 

This is a tautology which states the associative law of 
addit ion. , 

Soma simplifications are done automatically by the 
proof checker. All integer arithmetic assertions, such as 
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1+h = 2 end 5+2 > 3, are verified directly witfiout applying 

any theorems. Equality is considered to be reflexive. If 
B2 = A2 is a hypothesis of a theorem in its definition, and 
A2' = B2 i s true, thien, in the deduction process of this 
theorem call, B2 = A2 is autoina tically derived from the fact 
that A2 = 32, Since all pattern matching is conducted 
internally in suffix form, expressions are free of 

I 

I 

parentheses and are in a kind of basic canonical form. For 
example, ((A3 + B3)+C3) has the same form as A3+B3+C3 
internally; but ^(A 3+B3) +C3) is not the same as A3 + (B3+C3) 


internally. 

At the end of a proof, all the statements in the 
conclusion part of a verification condition should be 
deduced at least once in -order to complete the proof of 
correctness for this verification condition. 


The P roo f of B A PI FD 

With the specifications (see Appendix II) provided 
by NASA, EADIFD has been proved correct. Since EADIFD has no 
loops, the termination of the program is guaranteed. An 
instru ct ion constancy assertion (ICA) for the problem of 
program self-modification is in every assertion; this says 
that the program has not been modified. In the case of 
EADIFD, ICA remains true throughout the execution of the 
program, because the program is absolutely pure - i.e., it 
contains no instructions that can modify it under any 
conditions. Overflow analysis is dona by placing 
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restrictions on some instructions. The consistency of fixed 
point scaling is checlted by the verification conditon 
generator, which examines the scale of the opeLrands for 
each kind of aritkmetic instruction. 

Due to the fact that EADIFD has four exits; four 
proofs, each with one exit declared as true and others as 
false, have been completed. Each proof has initial 
assertion and ffnal assertions as given below. 

The first proof has assertions declared as: 


Initial 

assertion 

: SPEC, 

CEXITO, .NOT. 

CEXIT1 , 



. NOT. 

CEXIT2, .NOT. 

CEXIT3 

Final 

assertion 

at exit 

0: 

PCMD = PCMD02, RCHD 



RCMVLD = 

RCMVLD0 4 


Final 

assert ion 

at exit 

1: 

.FALSE. 


Final 

assertion 

at exit 

2: 

. FALSE. 


Final 

assertion 

at exit 

3: 

.FALSE. 


The 

second proof has 

assertions declared as 

Initial 

, assertion; SPEG, 

CE 

XI T1, .NOT. 

cBxiro , 



, NOT. 

CEXIT2, .NOT. 

CEXIT3 

Final 

assertion 

at exit 

0: 

. FALSE. 


Final 

assertion 

at exit 

1: 

RCMVLD = 0 

, PCMVLD 

Pinal 

assertion 

at exit 

2: 

. FALSE. 


Final 

assertion 

at exit 

3; 

.FALSE. 



The third proof has assertions declared as: 
Initial assertion; SPEC, CEXIT2, .NOT. GEXIIO, 

.NOT. CSXIT1, .NOT. GEXIT3 
Final assertion at exit 0; .FALSE. 

Final assertion at exit 1: .FALSE. 


1' : ■ ^ i 
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Final 

assertion at exit 

2: 

PCMD = PCSD03, PCMVLD 




RCaVLD = RCM7LD04 

Pinal 

assertion at exit 

3: 

. FALSE. 

Th 

9 fourth proof has 

assertions declared as; 

Initial assertion: SPEC, 

CEXIT3, .NOT. CEXITO, 


.NOT. 

CEXITl, .NOT. CEXII2 

Pinal 

assertion at exit 

0: 

. FALSE. 

Final 

assertion at exit 

1 : 

. FALSE. 

Final 

assertion at exit 

2; 

.FALSE. 

Pinal 

assertion at exit 

3: 

PCMD = PCMD03, RCHD = 


PCaVLD = PCMVLD02, RCMVLD = RCMVLD04 
Tlia definitions of CEXITO, CEXIT1 » CEXIT2» and 
CEXIT3, together with the basic conditions leading up to 
them are listed as follows: 

CEXITD = CVCRUZ .AND. TEXITO 
CVCeriZ = CFD112 .AND. TVCSUZ 

TEXirO = (GUID3D. NE.O) .AND. (MDA. GE. HRAD) .AND. (TIMER 
,E2. BINTME) 

CFD112 = .NOT. CEXITl 

TVCRDZ = (LOCFD06. EQ. 0) .OR. (GS FDO 2. EQ . 0) . AN D . 

(GSB5NS.EQ .0) 

CEXITl = (IMEFLG.EQ.O) .OR. CCRUZFD . AND. (GUID2D .EQ . 0) 
CCRaZFD = CFDIN1 .OP. CF02 .AND. (LOCFDO 3. EQ. 0) 

CFDIN l = (TMEFLG.NE .0) .AND. T1CRUZFD 

CFD2 = CFD4 . AND. (LBS.EQ.O) .OR. CFDIN2 .AND. .NOT. 
TFD3 .AND. (G0ID2D . NE .0) 

T1CR3ZFD = (AND (PGU MND, T1 2) . EQ. 0) .OR. (ILSON.EQ.O) 

: .DR. (GROND.NE.O) 
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CPD4 = CFDIN2 .ASD . (TFD3 .OR. (GUID 2D. EQ. 0) ) 

CPDI!I2 = (TME'FLS.NE .0) .AND. .NOT. TICRDZFD 
TFD3 = (ABS (IETA01) -LIBLOC.lt. 0) .OR. N (ABS (PSIE01) - 
DEG2» .LT.O) 

CEXir2 = CFD15 .AND. (GSVLD.EQ.O) .OR. CVCRDZ .AND. • 
TEXIT2 

CFD15 = CFD11 .AND. .NOT. TV CRUZ 

TEX IT 2 = (GUID3D .EQ .0) . OR,. | T VCR UZ3 .AND. ( PCMV LD. NE. 0) 
CFD52 = CLANDFD .AND. .NOT. TFD7 
CFD8 = CFDT .and. (HR AD . LT. A 1 200 ) 

CFD9 = CCRUZFD .AND, (GUID2D. NE. 0) 

CFD10 = :FD9 .or. CFD7 .and, (HRAD. GE. A1 200) 

CLANDFD = .NOT-. CFDINl .AND. CFD2 .AND. (LOC FDO 3. NE . 0) 
.OR. CFD42 

TFD7 = (YETA 01+PSIS 01 .3T.0) .OR. (LOCSTRO 1 #PSIE01 . LT. 0) 
.OR. (N (ABS (PSIE01) -DEG20) .LT.O) 

CF07 = CLANDFD .AND. TFD7 

CFD42 = CFD4 .AND. (LBS.NE.O) .AND. (LOC FD03 .NE . 0) 

CEXir3 - CFD15 .AND. (GSVLD.NE.O) .OR. CVCRUZ .AND. TEXIT3 
TEXIT3 = ( GUID3D.NE .0) .AND. ( (MD A. LT. HR AD) .OR. (TIMER 
. NE. BINTKE) .AND. (PCM VLD. EQ . 0) ) 

(Hece the symbol " =•’ stands for "is equivalent to".) 

Ttie definitions of RCMD01, RCMVLD04, PCMD01, PCBD02, 
PCMD03, PCMVLD02 are: 

RCdDOl = SRLMT(N (RLFDOn-ROLL) , DEG25) 

RLFD0 4 = N (SELMT (n (AC02-RLFD3 2) /2**2/TAU3, DEG4) ^DELTAT*- 
RLFD02) 

AC02 = .IF, CFD62 .THEN. AO ..ELSE. .IF. CFD8 . THEN. 
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SRLMX(I,0CSrB31, DEG15) .ELSE. SRL«T(AC01, DSS25) 
AC01 - .IF. "FD9 .THEN. LATSIS .ELSE. LOCSTR01 
LOCSTS01 = -(SRLHKN (TP205-TP103) , LI Ml 80 ) *2*<^3) 

TP133 ^ .IF. (LOCOC3 4. EQ.O) .THEN. TP103A .ELSE. TP103B 
IP103A = N (N(YETA01/PEEIOD/PERIOD*K5-TPT02) /TA01*DEL.TAT/ 
2**3+TP102) 

TP103B = N(N(SRLMT(YETA01, LIMY) /PERIOD/PERIDD*K 5-TP 102) 
/TAU1*DELTAT/2**3+TP102) 

TP235 = .IF. CFD52 .THEN. N (TP203-TP7 02) - ELSE. TP20 3 
LOCOC34 =. .IF. CFD3 .THEN. SET .ELSE. LOCOC02 
Y ETA 01 = MOLT(LOTpEV, K1 ) 

TP1D2 = .IF. CFDIN3 .THEN. 0 .ELSE. TP 1 
TP203 = GS/PERIOD*K6*?SIE01*KDAMP*2**2 
TP702 = .IF. CFDIN3 .THEN. 0 .ELSE. TP7 
LOC3C32 = .IF. CFDIN3 .THEN. 0 .ELSE. LOCOC 
PSIE01 = N(TK-RWYHDG) 

RCMVLDO’4 = .IF. CFD12 .THEN. SET .ELSE. 0 

PCMD01 = SRLHT(N (-(TP603*FDBKG*2**3) +GAMCMD01) , DEG6) 

TP603 = N(PITCH-TP502) 

GAMGMD01 = N (LGAMC03-GAMMA) 

TP502 = .IF. CFDIN3 .THEN. 0 .ELSE. TP5 
LGAMC33 = .IF. TFD155 .THEN. LGAMC04 .ELSE. XLGAMCO 
LGAMC04 = .IF. TFD156 .THEN. TLGAMCl .ELSE. TLGAMC2 
TLGAMJ3 = N (3RLMT (N( AO-LGAMCOi) /TAU5/2**3, LIMPR) *DELTuT 
+LGAMC02) 

TLGAMC2 = N (SHLMT(N (GAMMAC01-LGAMC02)/T105/2^*3, 11^X3) =*^ 
DELTAT+LGAMC02) 

TLGA.121 = N (.SRLMT(N (-N (N (N (GA MMACOH-GSA) +G5 A) -GAMMACQ 1) 
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-LG\HC02) /TA05/2+*3 ,LIMPR) *DEXTAT+LGAMC02) 
LGAMC32 = .IF. CVLAND1 .THEN. GAMMA .ELSE. LGAMC 
PCMD02 = N (N (SRLHT(SRLMT (VERSTR, C5B15) /VGS/2** 2/KHD/PIB2, 
DEG6)-FCMD) /C 3B2+DELTA T/2**2+ PCMD) 

PCMD03 = .IF. CVCR0Z2 .THEN. PCMD02 .ELSE. PCMD01 
PCMVLD02 = RCMVLD04 

Abbraviations such as SPEC, CEXITO, CFD12, and 
LOCFD06 ara used to make assertions more readable and to 
save space. Appendix III contains all the proofs, and the 
complete set of abbreviations, as well as their definitions. 

Input a a d, ^tput Fi le s 

Trie verification condition generator and the proof 
checker are used spearately; the verification conditions of 
a program have generated first and then to be proved. 

In order to use the verification condition 
generator, the programmer has to provide the input-output 
specifications, the scales of program variables, the 
abbreviation definitions, and a set of assertions and 
termination sequences at specific points in the program 
which must have at least one assertion and oiie , termination 
sequence 'for each loop. An assertion has the same fora as a 
Boolean ?-:<prassion written in Fortran, with .EQ., .NS., 

.GT., .LE., .LT., .GE. as the relational operators and 

.NOT., .AND., .OR., .IMP., .EQV. as the logical operators. 
.TRUE, and .FALSE, are the logical constants. For example, 
TMEFLG.GE. O an d IL SON ,NE . O'. AND . G RUND. NE . 0 are the typical 
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assertions used in the proof of EADIFD. A termination 
segUancs is a saguence of non-negative integer expressions 
associated with certain assertion points. Functions such as 
ABS(P), MAX(P,Q), and AND(P,Q) ace used in the usual sense. 
A user-defined function must be* declared in the theorem 
library before using it. The system also handles array 
references and has special assertions to deplare it; 

although no array reference occurred in EADIFD. The output 
contains a listing of the program with assertions^ the 
specifications, the scalings, and a set of verification 
conditions. An option can be chosen to punch the 

verification conditions into cards for the preparation of 
the input to the proof checker. 

A proof pccscedure, a set-up to prove a verification 
condition, is a basic input unit to the proof checker. The 
proof checker takes the file of the theorem library, the 
specifications, the abbreviation definitions, and a number 
of proof procedures as input. A proof procedure consists of 
the hypotheses and the conclusions of a verification 
condition, the names of the theorems to be used, and a set 
of theorem calls. The output is in the following format: 

COMaENTS 

♦ (if a ny) 

♦♦♦ ...... . I 
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HYPOTHESES 

HI; 

H2: 


Hm: 


CONCLUSIONS 

Cl: ....... 

C2; ....... 


wit ,-jf • • 

THEDRSMS USED 

ri; ....... (with theorem definition 

T2 :...... . 


Ik: ....... 


PR33F 


THEOREMS 


HYPOTHESES 




a xpan ded ) 


CONC LUS I0N3 



(the conclusion 
part of the 
theoren call) 


(theorem call) (the hypothesis 

part of the 
theorem call) 


Q, E. D. ♦♦♦** (or the error message which 
states the reason why this proof is not completed) 

A distinct identification label which has the form 
of "Hn« or ”Cn» with n as an integer is assigned by the 
system for each hypothesis or conclusion, respectively. Whep 
an intermediate result is deduced from a theorem call, the 
result is identified by a label of the form "Ln". a 
conclusion is deduced, the conclusion part in the output of 
this theorem call is denoted by a label of the form ’**Cn", 
where the '•*" is used to indicate that the nth conclusion of 
this verification condition has been proved. The use of 
these labels is for the purpose of making each proof step 
clearer in the output of the proof checker. 
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. 8B3 

Binary 

SET or R 

E3 

-1.30 to 

30 

-1.30 ta 




m 





iPPSNDIX II 


K2 

Zoastint value 

B15 

3.B1 5 

K3| , ^ 

Constant value 

BO 

. 0330 

K4 

Coastant value 

BO 

0 

K5| 

Constant value 

BO 

. 39B0 

K6 

Constant value 

BO 

.653B0 

K7 

constant value 

B15 

2. Bio 

K9 

constant value 

B5 

-1.635 

K10 

Constant value 

B15 

-3.B15 

K1030 

Constant scale! value to 

B23 

837. B23 


pgpcesenit 1030 ft on radar 

altimet; 

er 

K1200 

Constant scaled value to 

323 

925. B23 


reprasait 1200 ft on radar 

altimeter 

LATSIS 

r^ateral steering signal 

BO 

-1.B0 to 1.B0 

LSS 

i 

Lateral baaa sensed 

Binary 

SET or RESET 


discre te 



LGAUC 

Limited 3ASMAC 

BO 

-10/180B0 to 0 

LIMLO: 

i 

Sail Programmed Lat. Dev. 

B23 

1 00,023 

LIM 

Lateral dev. course cut 

823 

400. B23 


limit (constant) 



LI »1 80 

: Limit value 130 degree 

B3 

1.B3 

LlilPR 

Constant pitch, rate limit 

BO 

.6/130,80 

loooev 

Localizer deviation 

B 1 2 

-2/1 30B5 to 

>■ - 



2/10OB6 

L3CFO 

Land mode 1st pass switch 

Binary 

SET or RE3ET 

LOCOr 

Localizer on course flag 

Binary 

5 ET or BESET 

LJC3TS 

Localizar steering signal 

BO 

■ - 1. BO to 1.3 0 

loovlo 

Localizer valid flag 

Binary 

■ SET or EES ST 

«0A 

Constant iniiimum descent - 

b23 

250'. 3 23 


Ui'‘ POOR quautsI ^’AGE 

oppooRQ0ALm 


iPPERDiX II 



iltitade 



HPILS 

ELS 33l23tii 30 BADI aode 

Binary 

S2T or RESET 


panel flag 



MSKL15 

Tonatint sstal ralae 

- 

300077777 

PC1D 

Pitch comiiand 

BO 

-6/130BD to 


• 


6/180BO 

PCHVLO 

Pitch comaani valid flag 

Bina ry 

SET or RESET 

PC01M0 

Pcsgram control unit mole 

Binary 

SET or HdSSr 


vori 



PERIOD 

Reciprocal of natural 

B 10 

35. BIO 


fraguenry 



PIB2 

Pi at B 2 

B2 

3. 1415326B2 

pit: 3 

Pitra angle 

BO 

-1 . BO to 1 . BO 

PS 12 

Reading arror 

BO 

- 1. BO to 1.3 0 

acio 

Roll coaiand 

BO 

-25/1 30B0 to 




25/1 BOBO 

RCJ1VLD 

Roll conaand valid flag 

8 ina ry 

SET or RESET 

RESET 

lonatant octal value to 

- 

000000300 


rasat binary state variable 


RLFD 

ramporary storage location 

BO 

-1.B0 to 1.B0 


for roll intagrator output 



RDL'- 

Roll angle 

BO 

-1.B0 to 1.B0 

RWYHD3 

Ruorfay heading 

BO 

-1 . BO to 1 . 30 

S2T 

Constant octal value to 

- 

311111111 


set binary state variable 



SRL1T 

Lialt sibroutiie 

- 

- 

ST AST 

1st pass flag used to 

Bi na ry 

SSI or BESET 


Lnitiali-za flags, ir.tagrato 

C S ^ ^ to c • 



I 




APPENDIX II 





TAOl 

loastant coll coDputation 

B3 

3. B3 


lag 



TA 02 

laallig acror washout tiaa 

B6 

60. B6 


constant 



TA03 

S'*!! ooBiand lag 

B2 

1.B2 

TAO^ 

?itch conputation lag 

B4 

3.B4 

TAOS 

?Ltci coal and lag 

33 

1 . B3 

TAOS 

?lt 3 i washout tiae 

B3 

1. 5B3 


constant 



TP 

Ills Croa flaca to 

B5 

16. B5 


touchdow n 



TIMER 

riia oounter to flash 

B23 

0 to 1.30 


pitch bar of flight diractor 


TK 

Traoc aigla 

BO 

-1 . BO to 1.30 

TSEPL3 

Real tiae flag 

Bina ry 

SET or RESET 

TP 1 

Taioocacy storage 

B3 

-1 . B3 to 1 . 33 

TP2 

Tiioocacy storage 

B3 

- 1.B3 to 1.93 

TP 3 

Taaporary storage 

BIS 

- 1. B1 3 to 1. 313 

TP4 

raioorary storage 

BO 

-1 . 33 to 1 . 30 

TPS 

Teapocary storage 

BO 

- 1. 30 to 1.30 

TP6 

reaoorary storage 

BO 

-1.30 to 1 . BO 

TP7 

reioocary storage 

33 

-1.B3 to 1 .33 

T12 

Constant value mask to 

- 

D00004000 


jttraot bit 12 



VERST3 

Vertical steering signal 

315 

-1.33 to 1.38 

7G3 

Groiii speed in f»"/sec 

SIS 

> = 103. 9’5 and 




< 1.30 

YET\ 

jiteral deviation from 

923 

-1.33 to 1.3 3 


/ 
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(1) Listing of the Verifier Program 

(2) Theorem Library 

(3) Abbreviation Definitions 

( 4) P roof s 





PAGE 
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(DUMP * I . 
tSTLIMIT « 500000 
6MAXt,NGTH » 32700 
(ANCHOR =1 
(TRIM = I 

DIGIT = •0123456789* 

alpha = *ABCOEFGHI JKLMNOPaRSTOVXXyZ*^- 

... VERIFICATION CONDITIONS *•> 

, ... , .;. 1 .<. I -.• 1 - ' - ‘ ' • 

• C • I RPOS< 0* * 
loel = •>—♦/<>=• *C)* 

1 *.■ SPANIDIG.T, 1 SPAN.0.GIT, ... 1 

SPAN(DIGIT) ••• SPANlOlGITjr 

OUTPUT! 'TITLE* . ■ * t IHt »13pAI ) > 

DEFINE! *CCRTaLO 1.7* * 

DEFINE!*CLTIXOI*> 

DEF1NEI*CNDCI IXO.Xl* > 

DEFINE!*CONV<X)XO.X1.X2* ) 

DEFINE! * ENOPCOOelX. 71 XO* ) 

DEFINel*FRT!XO)XI .X2.LINE.I * 1 

D6FINEI*ETSBIX.7>* ) . 

DEF 1NE( * EWL IX!X ) ix.xo .XI . X2 > 

DEFINE!* >NST!X.7»X0* > _ _ . pgLI ST .MACNAM. ARGS. ARGNO* I 

DEFINE!* MACR! )X . MACTXT. M ACOOE, AHGUl ST. MACOOE . A* • 

DEFINE!*MACEXP!X)X0.XI.X2.8.C.IX,ARGND.Akul 

DEF !NE! .NOSPACE !Xl*> 

OEF INE ! * OUTSTMT ! X) W* » 

DEF INE! * PUNCHCAROS IXI 7.Z * ) 

DEFINE! • REPLACE ! A. 8.0 X.7.Z* ) 

DEF INE! * RSTRIX! X) I .XO* ) 

DEFINE!*SCALEIXIXI.X2.X3. X4.X5 
DEFINE!*SU8!X)X0.XI.X2.X3.IX I ; 

DEFINE! • S7XUBL! X) * I 

MACR! » 

MCEPLV = TR!M!INPUTI 
OPCODE = TABLEtSOI 

X*= .LDALDaSTASTOSTZANAOHAADDSUBADS* 

ENOPCqOE!X.OcD^CTNETRATRMTRPTRZTNZ. 

ENOPCODO^.^A^ABsCMAHLTSEXXAQOIVaTD* 

rr“?lLA;SAODPADPSSLLSLRBSSGENEQUEN0REM* 
x'"r^*SDOSUBiADSOS8SOINCODECODPAODPSO.^^^^^^^ ^ 

|^°^r=‘?;aLE!5o.io, mbbd, 

a CLRTBL!) 

D ASST = ARHA7!*S0* ) 

CPGN^ ARRA7I *30.5*1 

TEXT = ABRA7l*300.8*l :!BBA» 

SVMTDL = array! * 160.6* > 







PAGE 


2 


*»•***•♦*•»♦♦*•**♦•**♦•*••*••• 

• oeFJtiejjtSUJJilLtJ} 

• COt-LECT index of VAf?lABLES 

55 CL.TIX CLriX = 

56 1=0 

57 CXI I = LT(I.SVMX) I <■ 1 IFIRETURN,) 

SB CLTIX = CLTIX VS* SYMTBL<1. A> I 

*«•«»••»••♦*•***•*•***••**•*•• 

• OEF IHEI • Cl-gTBtt > I • Y* > 
***»****,*!»»»:♦»»♦•♦*♦«♦♦*♦*»♦♦* 

59 CLRTBU SYMBOlii - CDNVERT( SYMBOL .• ARRAY • ) 

60 


6t 

62 

63 CLl 

64 

65 


:( RETURN) 


:F( RETURN) 

V ■= PROTOTYPE(SVMBOL) 

Y BREAKt ••• ) . Y 

I = I 

SYMB0L<I#2> - 

I = LTd.V) I ♦ 1 :SfCLI ) 

SYMBOL * CONVERT<SYNaqL»rTABLe« I 

• OEFlNEOCNDCI IXO.Xl*) 

4l» ♦♦♦♦♦♦♦4* 

CNOC 6ANCH0R a 0 ’ : 

XO = CON 
CON * 

XO OIFFER(XO) BAL « XI 
HYP ( *,■ ' I Post O)) XI (•• • 1 
XI POS(O) SAL RPOS40) ;S<CNpCi) 

CON = CON XI : (CNOCl ) 

&ANCHOR * I 
CON • •• * :(RETURN) 

♦ DEFINE! * CQNV( X) X0« Xl» X2» ) 

» 4 * * 4> « « « 4 4> 4^ «: » «< A ♦ * A «4 ♦ 4 

4 CONVERT operand INTO ITS DECIMAL EQUIVALENT 
4 O <OCTAL 1NT£GER> 

4 <CEN£RAL OECIMAL> I <G£NERAL 0ECIMAL> S <INTEGER> 

4 mixed : t)NE TAG AND ONE DECIMAL DECREMENT 
4 SYMBOLIC; 

XO *0* SPAN(OCTAL) 


66 
67 

6a 

69 CNOCl 

70 

71 

72 CNOC 2 

73 CN0C3 

74 


I RPOS(O)) 
RPOS(O)) 


:f(cnoc3) 

: F(CN0C2) 


01 


OR INCREMENT 


I 


76 

77 

78 

79 

80 
81 


CO NV X ( • • I • 

4 OCTAL NUMBER 

CONV = LT(XI»8) XI 
CONV = lOENTi X0« •-• ) ' 
XI OIFFERIXll LENII) 
CONV = CONV 4 a X2 
CONV = OIFFERlXOr'+M 
CONV “ CONV •/2*423* 


XI pos <oi* :fccv 2 ) 


CVl 


CV lA 
CV10 


IFtCVl I 
-• CONV 
, X2 = 

: (CVl ) 

XO CONV 

: (RETURN) 


: (cviB) 

:f(cv lA) 


4 SCALED decimal NUMBERS 


82 

83 

84 


CV2 


I 


CV2A 


X (•♦• 

CONV CONV 
X ( • + • \ •- 

SPAN(DIGIT) 


I POS(0»> . XO DECIMAL •CONV RPOS(O) 
•/2»423« : ( RE TURN ) 

• I ■•) . XO DECIMAL • CONV 
. X2 RPQS(O) :F(CV3) 


:f(cv2A) 


•B* I I 


85 

86 


•) CONV •2*4« X2 
X2 ! : (RETURN) 


87 

88 


CONV = IDeNT(Xl** 

CONV = CONV */24^4 
4 MIXED expression 

CV3 X BREAK! • 4-^* ) • XO LEN( t ) • XI 
SYXLOL(XO) :F(4(E •CV3AM ) 


: (RETURN) 


SPAN (DIGIT) 


:F(CV4 ) 




90 

91 

92 

93 

94 

95 

96 

97 

9a 

99 

100 

101 


CV3A 

CV33 


:S(CV3B) 

:SfCV3A)FCS(E •CV3A*}) 


• CONV 


: (RETURN) 


:S(RETURNIF(S(E •CV4C*>| 


102 

103 

104 


105 

106 

107 

108 
109 


no 
1 1 1 
112 

113 

114 

115 
I 16 
117 
I ta 
1 19 
120 
121 
122 
1 23 


124 

125 

126 


IX ~ SYN80L<X0> 

IDENT(IX) :S(S(E •CV30»)) 
lY s SYMTBC<IX,2> 
lOENMIV) :S(*(E •CV3Q«n 
IV = EVALdY • • XI • • X2) 

IX a 1 

IDENTi lY .SYMTBL<1X.2> > 

I X = LT( IX. SVMX ) I X 4 1 
SYMTBL<lY.i> REM 

,♦ SYMBOLIC 

CV4 SyXLBL(X) :F(tlE •CV4A«M 
IX = SYMBOL<X> 
lOENT(lX) :S<S<E “CVAB*)) 

SYMTBL<IX.I> •C:« REM • CONV 

4 OEFZnE( • ENOPCODEI X. Y) X0» > 

4 ENTER OPCODES INTO OPCODE TABLE 

ENQPCODE X LENCYI . XO = :F(RETURN) 

OPCODECXO> a IX 
IX = IX 1 :(ENDPCODE): 

♦ DEFINEI'ETSBIX.Y)* ). 

♦ enter SYMBOL Into symbol table 

ETSB SYMX S= SVMX ♦ 1 
SYM80L<X> = SYMX 
SYMTHL<SYMX.I> = Y 
SYM1BL<S YMX,3> = IDENtJY.^V*) X 
SYMT8L<SyMX •3> a IOENT<Y.»A*) X 

DEFINE! 'EVLIX(X)IX.XO. XI .X2«) * 

evaluate the expressions; X IS AN EXPRESSION OF LABELSCLOCATIONSI 

CURRENr'uNE CO^Nr"’ 

EVLIX X anEAXC'+-«J . XO LEN( 1 ) . - 

1DENT(X0,«**> :F(EX0» 

IX = EVAc(TExr<iY.a> • • XI 
EVLIX = IV 

lOENTC IEXT<eVLIX.a>, I X) 

EVLIX = LTteVElX.LIC) EVLIX 
I X = SYMBQL<XO> 
iOENT(IX) ISISte •EVLIXI«)> 

IDENT<SyMTOL<IX.I>.*LM IFISIE •EVLIXl*)) 
lx = EVAL(SVMTaL<IX.3> • • XI • • X 2 ) 

EVLIX = IV :(EXOA> 

SVXLBLIXJ :F<»(E •EVLIX?.* I > 

I X = SVMBQL<X> • 

EVLIX = DIFFERCtXI I OEN F tSVMTBLXIX . I >. ‘L* J SVMTBU<IX.3> 

♦ • SIREIURNIFtSIE • eVLlXl • ) I 

• OEF INEl •FRT(X0|XI .X?iLINE. I • ) 

•'♦••••*•»••_•!** »»*»♦* ******* 

FRT LINE -i 
1 = 0 

FRTO xp OIFFEH(XO) BAL .XI (•,• ) Rpas(o)) = ifcfhtti 


: SI RETURN) 
: (RETURN) 


EXOA 


EXO 


EX I 


XI SPANIDIGID . X? RPBSIO) IFIEXl) 
• • X?) 

;S( RETURN) 

,F 1 ISteXOAIFlSIE •EVLIX2*)) 



m 


PACE • 


FPTI N = SIZE(Xl) / 22 ♦ 1 

EQ(I.S) GT(N. U ;S(FI»TS) 

FBT2 XI LEN(22) . X2 « ;FIF«T3 ) 
line — LINE ftPA0tX2.22I 
I - I + 1 

Ea{1..6» ;SIFHT5)F(FnT2l 
FRT3 LINE = LINE RPA0(XI.22) 

I = I ♦ I . 

FRTA EOIt.CI IFf.FRTO) 

OUTPUT * L I NE 
I - 0 

LINE = KFRTOI 

FPT5 OUTPUT = LINE ‘ 

F«T6 XI LENII32I . OUTPUT = SS<FRT6» 
lOENTIXIl ISIFRT) 

I = SIZEIXI t / 22 ♦ I 
I line = RPAOIXI.I • 221 UFRT4I 

I FRT7 OUTPUT = LINE II RETURN I 
••***»«*«»T»*» ♦♦•*•*♦••••••*** 

• OEFINEC* INSTIX.VIXO* ) 

*♦»*»»*«»»*•»♦**••*•»••****•••* 

• REPLACE IN; X QT Y 

i INST X BREAK! *»•) • XO LEN ( I I = XO T SSIINSTI 

, INST = X IIPETUHN) 

• DEFINE! • MACEXPt X IXO.Xl .X2«B ?C» I X.ARGNO. ARGLlST«MACODE«A* ) 
****»t*FtA**'T**A‘ ♦»*****•*»»•» 

A macro expansion subroutine ; EXPAND MACROS IN X BY ITS DEFINITION IF 
r MACEXB MACeXP =■ 

» : MACEXP = EQIMCEPLV.O) X ISIBETURN) 


:s( INSTI 


MACEXP = EQIMCEPLV.O) X ISIBETURN) 

A = I , 

X ISPANILOEL) 1 NULL) • XO SPANICHAH 'S 

IX = MACRO<XI> 

IDENTIIXI : SIMPS I 
ARGNO = MACTBL<IX,I> 

ARGLIST = MACTBL<IX.2> 

MACODE = MACTBL<IX,3> 

EUIARGNO.O) :SIMP4) 

EQI ARGNO, Ij : SI MP3) 

X 8AL . C = :FI»IE •MPIMI 

DIFFER(C) :FI»IE •MP3M) 

C = HACeXPiC) 

ARGLIST BAL . B ^.* = :FI»IE •MP2*)| 
MACODE = REPLACEIMACOOE.B.C I 
ARGNO = ARGNO — 1 :IMP2) 

X BAL . C •)• = :Fl»lE •MPIM) 
0IFF6RIC) :F(»!E •MP3»)) 

C = MACEXP! C) 

B = ARGLIST 

MACODE a REPLACEIMACOOE.B.C) 

MACEXP = MACEXP XO MACODE IlMpI) 
MACEXP P MACEXP MACEXPIMACODE) IIMPI) 
MACEXP = MACEXP XO XI X2 :iMPI) 

A P LTIA.MCCPLV) A ♦ I ; FI RETURN) 

X = MACEXP JIMPI) 


XO SPANICHAR 'S») . XI RO . X2 = IFIMPS) 


.<L>» • 










^^iStaBfc. 


% ^ 


♦♦♦**♦*♦♦*♦♦*♦.♦♦*•*♦♦♦♦♦♦♦♦ ♦•* 

• DEI^lNe ( • MACRi 7XVMACTXT.T^ ACdoe>AR<U-I ST 4HACNAM* ARGS.ARGNO* I 

I 

♦ MACOR IS THE TABLE CONTAINS MACRO NAMES. 

♦ MACTBL IS THE ARRAY WHCIH CONTAINS 0 GF ARGUMENTS* MACRO ARGUMENT LIS 

★ MACRO definition 


T« AND 


174 

MACR 

MACX = 0 


175 


TITLE - 


176 


OUTPUT = • USER 

OEFlNEp MACROS 

177 


OUTPUT = 


178 


MACRO i TABLE(30.30> 

179 


MACTBL = ARRAY! • 130 

*4») 

180 


TYPE = •P* 


lei 

MOO 

MACTXT 21 


182 

HOI 

JC = TRIM! INPUT) 

/ 

183 


I OENT tX • • 2222222222 

•) :S( RETURN) 

184 


TYpe =: toENtix. *u III m 11* ) •£• 

185 


OUTPUT = X 


186 


lOENTCTYPE. •£•> 4 

S( HOI ) 

187 


X LENC79! . X ‘C 

:F(M02) 

168 


MACTXT = MACTXT X 

: ( HQi ) 

189 

MO 2 

MACTXT = MACTXT X 


190 


MACTXT SAL . X •=:• 

REM • HACODE 

191 


ARGNO ® 0 


192 


ARGLIST = 


193 


X aREAK<*<*» < MACNAM LEW 1 1 9TABC 

194 


X' (ANY(ALPHA) SPAN<CHAR» RPOS<0>t 


:S(MOt > 


:F€«iE •Mat«M . 


195 MOa 

196 

197 

198 

199 

200 MOA 

201 
202 
203 
20A 
205 


ARGS *> 


ARCS DIFFERIARGSI 0AL • X < • •• | flPQSlOII 

ARGNO = ARGNO ♦ 1 

MACODE a REPLACe<MACOOE*X.« S«* X) 

ARGUIST = OIFFERi ARGLISTI ARGLIST ••S* X 
arVCist s X :(M03» 

MACK a MACX > I 
MACROfrMACNAM> = MACX 
MACT'iu<MACX* t> s ARGNO 
MACt??L<MACX *2> = ARGLIST 
«A(;T*^L<MACX*4> = TYPE 
MA.CTQL<MACX#3> - MACOOE llMOOl' 
tA «««c«4i«A«rA«*«A AAA 

» OEf IME< • NOSPACEfX) • ) 

««.AaAA'F-«’'*aA AAA AA A AA AAAAA AAA AAA A 

206 NOSPACE t ANCHOR = 0 

207 NEl >£. •«= :S(NE1) 

208 N03PACE ^ X 

209 piANvHOR = I : (RETURN! 

, aA -^AAifA'A AA“A A**”A'A"A'A AA'A AAA 

A OEFiHE''OUTSrMT<XJX*) 

. AAAAAA'AA AAAAAAAAAAAAAA'A'AAA'A.AAA' 

210 OUTSTMT W SIZEIX! / 20 A 1 
OUTPUT = GT(STMTN0 ♦ W.61 STMTS :F(0T2> 

STMTNO = W 

STMTS' »RPAO(X*W A 20! S(RETURN) 

STMTNO = STMTNO a 0 

STMTNO * EQ(STMTN0*6! 0 IFIOTI! 

OUTPUT s STMtS X 
STMTS = : IRETURN! 


:S(M03> 
:S1M04IFC$(£ 
:FCM04! 


:S(M03! 


211 

212 

213 

214 0T 2 

215 
21 0 

' t'VT ■ 







218 OTI STMTS » STMTS RPADIX.20 * Ml 

« • 4> ft *.«.**. 

» DEF INE( • PUNCHCARote(X) Y.r* t 

****••**»•♦»»♦*»♦»♦»♦♦»•*•••*• 

219 PUNCHCARDS 

220 tANCHQR =0 

221 PSt X •»• = •&' ISIPSII 

222 DANGMQR = 1 ■ 

223 PS 2 PUNCH * LEtSIZE{X>,79) X SSIPETURNl 

224 X LEN(791 . Z = 

223 PUNCH = 2 • C* ; « PS2 ) 

***4**44**44»4*4** »♦»»*•*•»*• - 

' • * 0eFlNE(";RePLACE(A.8.C JX.V.Z*),; 

4««»***i>4t***444** •F^**®***** 

» REPLACE ALL B'S IN A BY C 
228 replace REPLACE s 

227 REl A (SPAN(LOEL) | PQStOl) . X SpANlCHAR . V RD . Z » SI 

228 IDENr(B.Y) - :F(RE2) 

229 REPLACE = replace X C Z HREIl 

230 RE2 replace •= replace X Y Z SCREU 

231 RE3 REPLACE = REPLACE A KRETURN) 

' ' •4«***4**.k*Jtt.A4.*4*.*4****4*44'*4» : ' . . 

• defin£{*hstrix(X»i .xo*i 

■ **,«»***»***4***»* »'*»4A*4****»*4 

• RESTORE INDEX OF VARIABELS 

232 RSTRIX t = I . 

233 RXt X • ;r BfiEAKC :• ) • xo = SFIRETURNI . - . 

234 SYMTBLci «4> = XO 

235 I ^ I ♦ I : (RXl ) 

ftftftft*ft**:ftft.ftftft«.««ftft«ft.#ftftftft'ft' ■ 

* DfcF^IN6(*SCALE(X).Xl.X2*X3«X4«X5»l 

ftftftftft*ft».«ft^ft'ft4i*«4>*ftft***ftftft 

236 SCALE 

237 Set X OIFFER(X) *1* BREAKt***) • Xa 0REAKC**«) • X3 

> BH£A<(*.*) . X4 ••• BREAKCMM • X6 t*.« | RPOSIOM * 

♦ ;f(return) 


: (RETURN) 


:F (RETURN) 



236 

XS ~ SyM8gL<X2> 


■ - 

239 

lOENKXSI :F(SE2) 


240 

eTS0(X2,X3) 



241 

SYMTQL<SYMX .6> = 

X6 


242 

SYMrUL<SVMX#5> a 

X4 


24 3 SE2 

I0ENT<SYMTaL<X5. 

i>.; 


ft».*ftft«rft« ft'ft*'««ft.ftAft'«»«ft«ft«ft4«4«4 

• OEFiNEC •SUBCXIX0.X1*X2«X3.IX») 

• ••44«*«4*t*4***4*4 44 444**44*** 

• APPEND INDEX TO VARIABLES IN STRING X 


244 sue SUB = 

243 SBO IDENT(X) :S(RETURn) 

246 X (SPAN(LOEL) I POSIOU , XO SPANICHAR *S* 

4 :F(SB4) 

247 XI :S(SB2) 

248 SVXUULIXII :FISBl> 

249 SB2 IX = SYMBOL CXl> 

230 X3 = OIFFER(IX) SYMTOLCI X. l> IFISBl * 

251 X3 *C;» U*-* I DECIMAL » • XI RPOS(OI 

252 EQ<SYMTDL<IX.4>.0) ISiSBlI 


XO SPANICHAR ‘SM . XI RD . X2 « 
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253 X3 (»V* I :S(S33) 

254 SB I SUB * SUB XO XI X2 :«SBO> 

255 SQ3 SUa ^ SUB KO XI SYMTBI_< I X .4> X2 ;«SBO) 

256 SB4 SUB = SUB X : (RETURN! 

♦ OEFXNEX • SYXLHLt X) ■ ) 

« «««»*»« 4 444 *4^444 4 ««4« 

4 CHECK whether X IS A LABEL OR NOT 

257 SYXLBL X PDS(O) SPAN(DIGIT) RPOS(O) :S(FRE7URN> 

258 X POS(O) SPAN(CHAR) RPOS(O) :F(FRETURNI 

259 X POS(0> 'O* :F(H£TURN) SIFRETURNI 

260 - — 

■ 44 4»44*4 44*WW*'44 4 4444»4**44 4*4 


4 READ IN statements 

4 4«44*«444444*4>«««444444444 444 


261 

262 BBA 

263 

264 

265 

266 

267 

268 

269 BBAOO 

270 

271 

272 

273 

274 BBAOl 

275 

276 

277 OBAO 

278 

279 

280 

281 BBAl 
283 

285 

286 
287 

289 

290 

291 

29 2 BBO 

293 aai 

294 

295 

296 

297 
29B 

299 

300 

301 BB2 

302 

303 

304 


SYMX =0 
ASTX ^0 
CPGNTX =0 

RETAOO = • .UNDEFINED** 

EXI T. ■ 

SPEC =: 

TITLE = • SPECIFICATION — f-* 

LINE = INPUT 

XDENTtLlNE. •7777777777* ) 4S(86A01) 

OUTPUT = LINE 

LINE SPAN(*4«| SPANt* ■) * 

SPEC = SPEC NOSPACEtLlNE) :(BBA00) 

OUTPUT = 

OUTPUT = 

TITLE - SCALING • 

line = NQSPACEC iNPUt) 

lOENTtLl NE. f 8888888838* ) tSCBBAU 
OUTPUT = line 
SCALE(LINE) ItSBAO) 

ETSB(*SAC***V*> ; ETSBC *iRA** ^V*l 
ETS8( *sMO* * • V* ) ; ETSBI *SAQ*.* V* I 

SAC = 

SMO = ' 

L IC = 0 ; LOC = 0 - — 

TITLE = 

OUTPUT = LISTING OF THE PROGRAM TO BE VERIFIED 

OUTPUT = 

Lie = Lie ♦ I 

INOREF =0 

LINE ^ TRIMCINPUT) 

lOENTlLlNE. *0d00000000* > 5S(EN0l 
IDENT (LINE* *9999999999* I :S(EE0! 

OUTPUT s line 

HNESPAN(*4*| SPAN« • M = SF(BB4I 
LINE « NOSPACEILINEI 
lOENT(LlNE) :S(OBl» 

LINEI K ^TRIM( INPUT 1 
OUfPUT » LINEI 

LINEI SPAN(*4«1 SPANt* « :F(BB3> 

lOENTlLINEtl :S<B02I 






305 LINE = LINE NosPACEU. iNE 1 1 :s<aaai 

306 8B3 ASTX = ASTX , 

307 ASST<ASTX> = LtC 

303 TEXT<LIC.l>, = LINE 

309 LINE = L INEl 

310 IOENTILINE. •9999999999* > ISIEEOI 

311 BB4 LINE GTI SIZEILINEI, 251 LEN1251 .LINE ;E<BB51 

312 LINE = TRIM(LINE) 

313 BBS LINE LEN161 . LABEL LENIll «BREAK(* • I . OP SPAN!* •> REM • OPND 

* I REM . OP NULL . OPND) lElSlE •B01 •-•) -‘- 

314 LABEL = TRIMtLABELI 

315 lOENT(LABEL) ISCBBal 

316 syxlbc(Ladel) ;fis(e •Ba3»i) 

317 BB8 OP LEN(3) . OP • •• RPOSIOl :F1BB6) 

318 INOREF =1 

319 lOP = QPCOOE<OP> 

320 LEllS.IOPI LE(laP.2t) :S(BC0)F1$(E •BBl*») 

321 BB6 lOP = 0PC00e<0P> 

322 lOENTllOPl !S<»<E •8B2*)1 

323 

••4**** »*»»•♦ •A** *••***♦ »••••* 

* STATEMENr-OECOOING-- 

**«**I4» *•»»**»»*»*•*•♦• ^*** •** 

324 

325 BCO LINE LEN(7) = 

326 REMA EQ(I0P,42) ISIBBI) 

327 BSS EOlIOP.Sa) SFICENl 

328 lOENTlLABfcLl JSISIE •BSSO*)) 

329 IX = SYMBOL <LABEL> 

330 lOENTlIXI ISCOSSI) 

331 SYMTBL<IX.l> l«U* I '.VS* 1 ‘V*) : S( BSS2 )F( S(E •BSSl*)l 

332 aSSl SYMX = SYMX ♦ 1 

333 SVMBOL<LABEL> = SYMX 

334 IX = SYMX 

335 BSS2 temp = CONVCOPNO) 1FC»1E •6SSZ«I) 

336 SYMTBL<1X.1> = lOENTl TEMP.* !•) *V* :S(BSS3) 

337 SYMTBL<IX.l> = *A;* TEMP 

338 BSS3 SVmTBL<IX,2> = LOC 

339 SYMTBL<IX.3> = LABEL 

340 LOG = LOC ♦ TEMP KBBl) 

* SUPPOSE THAT GENERATED DATA CANNOT BE CHANGED DURING EXECUTION 

341 GEN Eanop.391 IFtEQUI ■ 

342 IDENTILABELI JSCSIE 'GENO* U 

343 IX = SYMB0L<LA0EL> 

344 IDENTtlX) iF(GNl) 

345 SYMX = SYMX ♦ 1 

346 SYHB0L<LASEL> = SYMX 

3 -7 \ , IX = SYMX 

348 GNl X2 = 

349 OPND BREAK! *8* » ‘B* REM . X2 

350 SYMT8L<1X.I> 4 .Cl* OPND : F( S < E • GENZ* 1 1 

351 SYMTBL<IX«2> =* LOC 

352 SYMT6L<1X.3> = LABEL 

353 SYMTBLCrX.SX = 10ENT!X2> *B* :S(GN2I 

354 SYMTBU<IX.S> p X2 

355 GNZ LOC = LOC *■ 1 :(8Bir 





PAOE 


356 

357 

356 

359 

360 

361 

362 


EOU 


EU3 


363 

364 

365 

366 

367 
366 

369 

370 

371 

372 

373 

374 

375 

376 

377 
376 

379 

380 

38 1 
3B2 

383 

384 

385 
3B6 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 


EU 2 


iFtEUll 


EUl 


ENDS 


BCl 


8C2 


aC2A 


BC3 


QC3A 


BC4 

8C5 


EQCIOPtAOl ;F(EN0S> 

OPND * CONVtOPNO) :FIEU2) 

EQUATE CONSTANT TO CONSTANT VARIABLE 
^ SV 4 (LBL (LABEL) :Ft*( E • EQU I • ) I 
IX = symbol<label> 

SVMX = OIFFER(IX) SYMX 4 I *^^3 • 

IX - SYMX 

SYMTOL<lX*l> = •C5* OPNO S(B0l> 

EQUATE LABEL to ANOTHER LABEL 

&V-XLOL( LABEL) :F( S( E • EQU I * ) ) 

IX = SVMbOL<OPND> 
lOENTtlX) :F($(E •EQU2*)). 

SYMX = l 0 eNT<SYMBOL<LA 8 eL>) SYMX ♦ 1 
SYMB0L<UA8£L> = SYMX 
XX = SYMX - 

SYQTBL<lX*l> * 'L* 

IW - SYM80L<OPNO> 

, lOENTCIW) :F(SCE •EQU2*)) 

SYMT0L<IX*1> = •L* 

SYMTBL<IX*2> ss SYMTBL<1W«2> 

SYMTBL<IX*3> — SYMTBL<IW*3> 

EQ( I0P.4 I) :F(BC1) 

TEXT<LIC»2> - LINE 
TEXT<LIC«S> = ; (BBO) 

IDENT(LABEL) :S(QC3) 

IX = SYMBDL<LABEL> 

IDENT( IX ) JS( BC2) 

SYMTBL<IX*l> *U* I •L* 

SYMX ^ SYMX 4 I 
SYMB0U<CABEL> = SYMX 
IX = SYMX 
SYMTUL<IX#l> = *L' 

SYMT0L<1X*2> = LOC 
SYMT8L<IX .3> - Lie 
log = LOC 4 I 
GE(lOP*lS) LECIOP*20) 

EQIINDHEF.I) :F(QC3A) 

SYXLOLtOPNO) ;F(S(E •0C3A*> ) 

IX - symdol<opno> 

10ENr( SYMTBL<IX« 1>.*V»« ) :SCBC7)F<S{E BC3A ) I 
dpnd breakc— ) . tagleniij span«oigiti .dev 
MIXEO OPERAND 

lOENTlTAGt • •• ) 1S<0C7» 

SrxLau(TAG) :F(»(E •OCE'O 
IX = SYMaoU<TAG> 
lOENTirX) :F(BCA» 

SYMX = SYMX +1 • 

SYMTBL<SYMX.l> = ’L* : ( BC7 > .or->i t l'c> nrT I 

SYMTBL<1X.1> «'L* 1 -U*) RPQSCO) * 'E* ,Ft»IE ‘BCa JISCBC7I 

SYXLBLtOPNIU :F<SIE « 8 CS*)» 

IX = SYMBOL <OPND> 


; ( BBl I 


ifiste.' "BCl* ) >StBC2A» 


;FC8C8» 


:fibcsi 


BC6 


IDENTIIX) :F«BC61 
SYMX = SYMX + I 
SYMBOL <OPND> = SYMX 
SYMTBL<SYMX.I> = 
■SyMIBL<IX.I> «*L* 1 ' 


: <ac7) 

» ^ X RPOSCO* 


•u* :fc»»e •BC6«li 





♦09 BC7 TEXT<U1C.2> = LINE 

♦10 TEXT<LIC.^> = EOl INOREF, U • 

♦ II TEXT<L1C.8> = LOC :1S«*CC« lOP »» 

♦ 12 CC15 TEXT<LIC.6> = *** KBBOA) 

♦ 13 CCI6 TeXT<LIC.S> = 1 OENTC OPND . *SRLHT • » • *AC=BRLMT1 SAC.»MO» 

♦ :S«BB0A1 _ 

♦ !♦ TEXT<LIC.5> = •**• 

♦ IS TEXT<HC.6> = IIBBOAI 

♦16 CCIT: TEXT<L1C.5> = •»*» 

♦17 ; TEXT<UIC.6> = "SAC.LT.O* IIBBOAI 

♦ 1« CCI8 TexT<LlC.5> = •••• 

♦ 19 TEXT<L1C.6> = GE.O* IIBBOAI 

♦20 CCI9 TEXT<L1C.S> = •»»• 

♦21 TEXT<UIC,6> * •SAC.EQ.O* lIBBOAl 

♦ 22 CC20 TEXT<|_IC.S> = •••• 

♦23 TEXT<LIC.6> = 'IAC.NEVO* 



^ 424 6B0A TEXT<U1C,7> = OpND IIBBO) 

425 BCa TEXT<l-IC.2> = LINE 

426 TEXT<LIC.4> = uf>NO 

A27 : TEXT<LIC.8> = LOC. :IS(*OD« IQPII 

♦28 001 TEXT<LIC.S> = •SAC=4* lIBBOl 

. , 429 002 TEXT<LIC.S> = • SMQ=»* IIBBO) 

' ' 430 003 TEXT<LIC.S> = • »=*AC* IIBBO) 

♦31 00^ TEXT<LIC.S> = • »=SMQ» IIBBO) 

'♦32 OOS TEXt<LlC.S> » •»=0« IIBBO) 

♦as 006 TEXT<LIC.S> = • »AC=ANO< » AC. » )• IIBBO) 

434 007 T6XT<LIC.S> * • SAC=OR I * AC . » I • IIBBO) 

435 008 TEXT<LIC.S> = • * AC=AOD I SAC . » ) • IIBBO) 

^ 436 DOS TEXT<LIC.5> = • S AC=SUB( S AC . » ) • IIBBO) 

437 OOlO TeXT<LlC.S> = • S AC=AOS( S AC. » ) . »=S AC^ IIBBO) 

438 OOli TEXT<L1C.S> = • SAC=SBS( SAC. » ). »=SAC* IIBBO) 

439 0012 TEXT<LIC.S> = • I SMQ.S AC I = I MUlTM ( SAC . » ) . MULTI SAC . *) ) • 

440 0013 IX = SVMBOL<OPNO> 

441 IDENTI SVMTBLCIX .67. • I •) IF(S(E •0013’ )) 

^ 442 TEXT<LIC.3> = •Rl»4t)* 

443 TEXT<LIC.5> = IIBBO) 

♦44 0014 IX = SVMBOL<OPND> 

♦45 loeNTISyMT0L<IX.67.M*) IFISIE •0014*)) 

■ 446 TEXT<LIC.3> = •HIX-D* 

V 447 T6XT<LIC.S> = IIBBO) 

448 0021 IX = syMBOL<OPNO> 

449 IOENTlSyMTBL<lX .6>.' I • ) IFISIE •0021*)) 

450 TEXKLIC.6> = 'RIX + D* 

V- 4Sl TEXT<LIC.4> = OPNO 

452 TEXT<L1C.6> = •i*=0' 

453 TEXT<LlC.7> = •*t2* 

454 tEXT<LlC.8> = LOC IIBBO) 

455 0022 OPNO = lOENTIQPNDI *0* ISID022A) 

456 OPND SPANIOIGIT) RPOSIO) IFISIE •0022’l) 

V 457 0022A TExT<LiC.S> = • SAC=SAC»2»»* OPNO 

458 TEXT<LIC.3> = •RISAC42*** OPNO •)• IIBBO) 

459 0023 OPNO = lOENTIOPNO) *0* ISI0023A) 

460 PPNO SPANIOIGIT) RPOSIO) 1F|S|E • 0023* I ) 

♦61 0023A TEXT<LIC.S> = •SAC=SAC/2**‘ OPND IIBBO) 

♦62 0024 TEXT<LIC.5> = • S AC=AB SI S AC) • IIBBO) 

463 0025 Texf<LIC.5> = • SAC=-SAC* IIBBO) 





0026 TEXT<LIC*5> » ; (BB0» 

0027 TEXT<UIC.5> « • 

SVXLBCtOPNO), :FIS(E-*0027* )> 
IX = SVMBOL<OPNO> 
lOENT(IX) :S(D027A» 
SVMTBLXIX. l> (*U* I *V*) ;:St 

0027A SYMX = SVMX + J 

SYMGDl-<OPND> = SYMX 
1 X = SYMX 

0027B SYMT8L<IX.1> = *VS* 

exit = IDENTiexITI OPNO IFIS 


:SI0027B1FC»<E •0027A»|I 


:F4*«E 'OOEYBYn 


SYMT8L<IX.3> = QPND 


0028 TEXT<l-IC.S> = • I*AC.»MQ) = I*M 0 .»AC»! MBaOJ 

0029 TEXT<LIC.S> = •SAC=»AC/»‘ - 

TEXKLIC. 3 > = •ASSISACI.LT.ABSl*>* :(BBO> 

0030 TEXT<HC. 3 > = ‘BCTC*)* ‘ 

TEXT<LIC.S> = •SAC=BTO(SAC>* MBBO) 

0031 TEXT<LIC. 3 > - •BTCI*)' 

TEXT<LIC.S> = • SAC=DTB( SAC) • :C 880 ) 

0032 TEXT<UlC.S> = • ( SMO.SAC) = 1 * . •» ) ’ MBBO) 

0033 TEXT<C 1 C.S> = •(*.»»)={ SMO. SAC) • ICBBO) 

DD 3 A TeXT<LIC.S> = • JSMU.S AC) = 0 P A t < SMO.SAC ). t* .»») »•• SCBBOl 

0035 TEXT<LIC.S> = • I SMO . S AC ) =OPS I ( SMO .S AC) , l»,«» ) > • rtBBOl 

0036 OPNO = lOENTIOPND) 'O’ :SI 0 D 36 A) 

OPNO SPAN(DIGIT) BPOSIO) :F(S<E "OOSS')) 

DD 36 A TEXT<LIC. 5 > = • SAQ:^( S AC . SMO > . SAQ= SAQ* 2 * » • OPNO 

♦ • ,SAC=A«t SAQ).SMQ=MRISAQ)* 

TEXT<LIC. 3 > = 'OIBISAOSE*** CPNO •)• 5 IBB 0 ) 

0037 OPNO = IDENT(OPNO) * 0 * :S(CD 37 A) 

OPNO SPAN(blGIT) RPOS(O) : FI S I E • 0037 • ) ) 

0037 A IEXT<UIC,S> = • SAQ=( SAC . SMO ) . S AO=S AQ» 2 ** • OPNO 

* • .SAC-ARI SAO) .SMQ=MR(SAQ) • : I BBO ) 

•**«:*«»«*«*^»«*# 

• CONTROL PATH GENERATION AND VERIFICATION CONDITION GENERATION 


0 11=0 

CPGNTX =0 
TI TLE = 

OUTPUT = •abbreviation S SPEC IS* 

OUTPUT = SPEC 
TITLE = 

n INDEX OF INITIAL ASSERTION FOR THE CURRENT CONTROL PATH 
JJ = INDEX OF THE CURRENT CONTROL PATH 
I II = LT<Il*ASTX - II H ♦ * ZFIBBBI 
lY = ASST<I I> 

IOENT(TEXT< IV.4>* • •• I :FCEE2) 

ident( text<iv*t>.sxit) :s(eeiifc*ie •eeo*ii 

CPTH = 

OUTPUT = 

OUTPUT = • CONTROL PATH • JJ * - — 

OUTPUT = 

COW = 

STMTNO =0 


1 





513 

514 

515 

516 

517 
sia 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 


STMTS = 

K = I 

EE3 SYMTBL<K*4> - 0 ' 

K = LT<K*SYMXi K ♦ 1 :SIEE3> ' 

lY = ASST<I 1> 

INASST = TEXT<1Y.I> 

STMT = INASST . 

CPTH = STMT 
OUTPUT = STMT 
HYP = SUB( INASST) 

10ENTCTeXTClY.5>*«X») :F<EE4A) 

IDENTl TEXT<IY»l>> :SfSfE •EEO*) ) 

EE3A CON = DIFFEH(CON) CON ••• SUB( TexT< I Y . |>) :S(EE3A2) 

CON = SU8<TEXT<IY* l>) 

EE3A2 OUTPUT = OI FFER ( STMTS ) STMTS 
OUTPUT = ••• TEXT<IY*l> 

OUTPUT = 

OUTPUT = VFCO 
OUTPUT = . 

PUNCH = FL IGHT DIRECTOR ROUTINE: CONTROL PATH • 

hyp ~ MACEXPlHYP) 

FRT(HVP) 

PUNCHCAHOS(HYP) 

PUNCH s 

OUTPUT « ••IMPLIES.* 

CON = MACEXP(CON) 

CNDCI ) 

FRTICON) - . 

PUNCHCAROSICON) 

PUNCH a •♦• 

PUNCH * '*• 

PUNCH a •aa 808888 B 8 » 

EE3C1 EOlCPGNTXtO) : SI E£1 ) F( EES) 

EE4 I0ENT(TEXT<IY,1>) :F(EE3A3) 

EE4A lOENTi T6XT<I Y«5>) :SIEE4B) 

ID£NT<TEXT<IY,S>, • **• ) :FIEE7) — 

EE4B IDENT( TeXT<lY«6>) !F(EE6A) 

lY-JS lY + I :ieE4) 

EE3A3 IDENTI TEXT<IY.4>.«** ) :F(£E3A) 

IDENTiTEXT<iY.6>.*»* > :S<E£3A) 

CPGNTX = CPGNTX *■ I 

CPGN<CPGNTX • l> = ••NOT.I* TEXT<IY.6> •)• 
CPGN<CPGNTX.2> = lY >1 
CPGN<CPGNTX,3> = HYP CON 

CPGN<CPGNrx«4> a CLtXXl) 

STMT = TEXT<IY.6> •)• 

OUTSTMTI STMT) 

CPTH = CPTH •;* STMT 
CPGN<CPGNTX.5> = CPTH 

HYP = HYP ••• SUBi TEXT<I Y.6>) :(EE3A) 

• POP UP CPGN 

EES TEMP = CPGN<CPGNTX.3> 

TEMP BREAKC»»*) . HYP LENCl I REM • CON 
RSTRIXICPGN<CPCNTX.4> ) 

CPTH = CPGN<CPGNTX.5> 

JJ - JJ . ♦ 1 






OUTPUT = 

OUTPUT = •--- CONTROL PATH T JJ • • 

OUTPUT = 

X = O 

STMTNO =0 

STMTS = ' 

cpth (bbeaki*;*! . output • y 

X = SIZEtVl 

B CPTH (TABCX> BHEAKt*;*) . STMT * Y SFTEeSCI 

OUTSTMT(STMT) _ - 

X = SIZe«Y) ;(EE5B) 
c Y RTABIl) . CPTH = 

STMT = M' CPGNCCPGNTX, l> . 

OUTSTMTC STMT) - 

CPTH = CPTH STMT 

hyp = HYP DIFFER! CpGN<CPGNTX« l>«***> SMBt CPGNCCPGNTXt 1. 

lY = CPGNCCPCNTX.2> 

CPGNTX CPGNTX - T, 

IOENTUY,**') ;S(K3A) 

^ retaoO';"':s;,;,iy ♦ I ■ :.:IEE4» ,■ ' . 

PUSH DOWN CP.GN 

>A lY = lOCNTI TEJI.t.^1 Y •.S> •• •• » EVLI X «TEXT<I Y.7> ) .SCEEA) 

CPGNTX = CPGNtv' ♦ * 

CPGN<CPGNTX«1> = T£‘XT<I.Y.6> 

IDENTI TEXrCI Y.7>.EXIT) IFIEESB) 

CPGN<CPGNTX.2> = IDENT(TEXT<IY.4>.'** ) ••• SSIEE6C) 

>B CPGN<CPGNTX .2> = EVLI X( TEXT< lY • 7> ) 

)C CRGNCCPGNTX .3> = HYP CON 

CPGN<CPGNTX,4> = ClTIXI ) 

STMT = ••NOT.!' TEXT<IY.6>: ■ )• 

OUTSTMTtSTMT) 

CPTH = CPTH •;* STMT 
CPGNCCPGNTX .5> = CPTH 

HYP = HYP •..NOT.!' SUBi TEXTCI Y.6>) •)• 

RETAOD = IDENTI TEXT<IY.S>.'»*' ) lY ♦ I . , 

I Y = IV ♦ 1 : (EE4) . 

7 AYREF = 0 

OPNO = TEXT<IY.4> 

IOENTIDPNO) :S(EE9) 

OPND SPANCDIGIT) RPOSIO) ISIEETD) 

OpND break! ) • OPNDl LENIl) • XO SPANIOIGITI • OPNOZ ! 
:SIEE?A) 

IX = SYMBOL<QPND> 

IDENrllX) ;S!*!E •EEl*)) 

SYMTBL<1X.1> (’V* 1 ^A* I 'C*) • XO IFISIE •EEl*) > 
OPNDl = IDENTIXO.'A*) OPND :FIEE70) 

0PND2 = *0* ! !EE8) 

7A IX = SYMBQL<OPNDl> 

IDENTIIX) ;S!S(E •EE7A’)) 

SYMTBL<IX.1> *A* :S!EE8) 

SYMTBL<IX.I> !’L* I 'VI . Xl IFI»!E •EE7AI*)) 

IN = lOENTIXl .'L* 1 S_YJMTBL<IX.3>„ 

IW = lOENTIXl.'V*) SYMTBU<tX.2> 

IW = EVALIIU • • XO • • DPND2 ) J IFISIE *EE7A2* I) 

.1 = 1 

7C EQI SYMTBLKI .2> .£W) :SIEE7C)„.__ 


C* ) . XO 
:FIEE70) 


:fisie •EEl*) > 


IFI»!E •EE7AI*)) 


:FISIE 'EE7A2* )) 



14,3 , ■ . 

>44 EE8C 


147 

>48 EE SB 
>49 . 


:S(EE8BI 

:f(EE8BI 


67 EE9C 


T6 EE90A 
77 eE90B 


, = LT(I.SYMX> I 41 • EE7B- ) »S<EE7BI 

SYMTBU<I»1> *7* :FI*(E • EEYB • ) > 

QPNO » SYMrBL<I«3> :tEE9» 

IOENTC TEXT<I Y.3>> ;steE9i 
REST = INST(TEXT<t Y.3>.QPN0I 

stmt = *x* best 
OUTSTMT( STMT) 

CPTH = CPTM STMT 

. xo BREAK..... . X. = XO 

CON = OIFFER(CON) CON REST :S«EE9. 

CON = REST :(EE9. 

TEMP = SYMTBL<SYMBOL<OPNQl>. l> 

tDENT.TEMP. :S(*<E .EEa*.) ;; 

^ :":;.:e.. opJ.d2Mand:“opno2 ..u.. temp 

STMT = .*. rest 
OUTSTMT. STMT. 

CPlH = CPTH STMT 

CON = DIFFER. CON) ... SUB (REST I .SCEEBC 

. CON = SOB.REST) .-.CMBl 

OPND2 = NBl IQ.O) ;OPN02 - I .S(EE8BI 

text<iy.2> <*saq j. 1 ;* • :f.ee88I 

IQ = > 

0PN02 = 0PNO2. ♦ * ::.EE8AI 
AYREF = I 

AYNAM = OPNOl ' y.':’:' 

aydim = temp - I 

_AYDXSP = 0PN02 

Temp = TExt<iv.s> 

- T0£NT.TeXT< lY.2>) : SI EE9A I 

STMT = TEXT<IY.2> 

OUlSTMTI STMT) 

CPTH = CPTH . S* STmT 

XI = SYMB0L<TEXT<I Y.4» 

SS = C0NVERr<SyMTBL<Xl.5>,. INTEGER. . 

SAC = CONVERTISAC.. INTEGER. . 

SMQ = CONVERTCSMQ. .INTEGER. > 

TFXT<1Y.2> BREAK!* • ) • XO 

XO |.ADD" 1 .SUB.. . OP RPOSIO. : FI EE90 . 

OP = ... 

OP = I DENTI XO. "SUB. . 
eLsac.ss) :fisIE .EE90.>) 

c ACTYPE = DIFFER! SVMTBl-<X. .6>.ACTYPE. "A" 

IDENTI ACTYPE.-A* ) iSTEEROB. 

REST = "RISAC* OP OPNO •)*; 

STMT = "X" rest "X" 

OUTSTMTI STMT) 

CPTH = CPTH • 5* STMT 

Cor='olFFERfMN. CON SUBIREST. :SCEE90 

CON = SU0(REST1 4 ' 

OA TEMP - •»AC=SAC- OP OPNO -‘fE9A> - _ 


:SI££9AI 


: F< EE90 I 


: <EE9A> 


TEMK = ^ wr w- 

TEMP ^ -SAC^NtSJSC* OP OPNO ST MiEE9A> 



F( EE9t> 



67B 

679 

680 
68t 
682 
683 
684 ^ 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 
693 

696 

697 

698 

699 

700 

701 
7oa 

703 

704 

705 

706 

707 

708 

709 

710 
Til 

712 

713 

714 

715 

716 

717 
710 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 


EE90 XO (•ADS* I •SBS*I • OP RPQS(O) 

OP = • 

OP = lOENTCXOt* sas*i •*• 

EQ<SAC,SSI :F(S(E 'eEgO")! 

ST = •»• OPNO «:=tAC* :(EE90 

EE9I IDENTC XO*»MPY* ) :F(EE92) 

ACTYPE = IDENT1SYMTBL<X1 .6>« ACTYPE) IOENTI ACT VPE. • t • ) •! 
♦ :F(EE91AJ 

MOXYPE ^ ACTYPE 2(£E91B) 

EE91A ACTYPE = *A* 

MQTYPE = *A' 

EE910 SAC s SAC SS 

SMQ = SAC * 23 :(EE9A) 

EE92 IDENTC XO •*0I V* ) :F(EE93) •» 

tDENT<SYMTOL<Xl.6>.«AO :.S(S(£ •££923-11 
SAC = SAC - SS :<EE9A) 

EE93 IOENT(XO.«LOA*) :F(EE94l 

ACTYPE a SYMTOl.<Xl t6> 

SAC = SS : (EE9AI 
££94 lOENTI XO**LOQ*1 :F<EE951 

MQTYPE a SYMTBL<Xl,6> 

SMQ = SS :(EE9A1 
EE9S 10ENT( XO ♦•STA* 1 ,Jf(Ee96) 

10ENT<SYMTOL<X1 ,6>. ACTYPE) :(•($(£ •£E9S*1) 

EQCSS.SAC) :F( »(E e£95* 1 1SCEE9A1 

EE96 IDEnT{ XO • ^ STQ* ) :F(EE97) 

IDENTJ SYMTBL<X1 *6> fMOTYPE.); :F(S(E •Ee.96*J.l. 
eO(SS*SMQ) ;F( $( E • EE96* ) )S(EE9A1 
EE97 XO POS(0> (•ANA* | •ORA* ) RPQSCOl :F(EE98) 

EQ(SS.SAC) :F(S(E 'EEgT’ ) 1S(EE9A) 

EE 98 ID£NT( • XAQ* .XO) :F(EE99) 

IX = SAC 
SAC = SMQ 

SMQ = IX :(£E9A) 

EE99 X2 a CONVERT! TEXT<IY.4>f* integer* 1 SFCEESA) 

SAC = IDENT( XO. ‘SAR* 1 SAC ♦ X2 :S(EE9AI 

SAC a IDENTI XO. • SUi?*J SAC. ^ X2 :S(EE9A) 

SAC a I06NT( XO. • SAL* ) SAC- X2 :S(£E9A| 

SAC a lOENTC XO. • SLL*_) SAC - X2 :S(EE9Al 

EE9A TEMP OlFFERdEMP) SAL • X (•.• | RP0S(0)| a :F(EE4B1 

X BREAK! •=• ) • XO •a* REM • Xl . :F(S( E •EESA*)! 

XO •(• BAL • XOA •.• B4L 4 X08 •)• RPOS(O) :S(EE10) 

eq(ayRef.i) :s(ee9D); 

EE9B XI a INST! XI . OPNDl 

XI a SUBCXl 1 

XO a INSTCXO.OPNO) 

IX a SYMBOL<XO> 

SYMTBL<lX.4> a SYMTBL<IX.4> ♦ I 
XO a SUB(XO) 

X2 a XO *=• XI 

HYP a HYP ••• X2 :(EE9A) 

EE90 XI a INSTCXl .AYNAM •<• AYDISP •)• I 
XI a SUB < XI) 

lOENTCxO.*#* 1 ;S(EE9E) 

XO a SUB (XO ) 

X2 a XO •=• XI 





» 
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733 HYP « HYP X2 :CEE9A> 

73A EE9E XO « t NST( XO ^ AYNAM AYDISP 1 

735 IX = SYMBO».<AYNAM> 

736 OOIS = SYMTBL<IXi4> ^ 

737 :SYMTBL<IX.4> = GDIS ♦ I . 

73B ;X0 = SUB(XO) 

739 X2 = 'FllZiOi* AYDIM •. (Z.NE.> AYOISP •.!>«».• SUB(AVNAM) 

* •<Z) = * AYNAH GDIS '(ZI.ANp.* XO •=• XI *n* 

7AO HYP = HYP •,« X2 : { EE9AT ' 

7A1 EEIO XI BAL . XI A ••• BAG . XIB • RPOSIOI IF( »( E *EE10* 1 > 

7A2 IDENr(XOA.*»') IDENT(XOa.*»»*) ISCEEIll 

743 IDENTI XI A. • »• ) IDENTI XI 8 . • « » • ) :S(EE12) 

744 EQ(AYBEF,l> :S(EE100» . 

745 X3 - SUB( INSTIXIB.QPNO) » 

7*6 X2 = SUB ( INSTIXI A.GPHO* ) 

747 EEIOA IX = SYMBOL<XOD> 

748 SY«TBL<lX.4> = SYMTBL<IX.4> ♦ I ' 

749 XI = SUBIXOB) 

750 IX = SYMBQL<XOA> 

751 SYMTBL<IX.*> - SYMTBL<IX,4> 4 1 

752 XO = SUBIXOA) 

753 HYP = HYP • XO • =• X2 • •• XI •=• X3 :CEE9A) 

754 EEIOB X3 5= SUB( I NSTI XlBt AYNAM •(• AYOISP •)• II 

755 X2 = SUB(INST(XI A.AYNAM •(• AYOISP •)• )» KEElOAl 

756 EEil OUTPUT = •ARRAY REFERENCES HAS NOT BEEN IMPLEMENTED! IIENOl 

• ERROR MESSAGE? 


757 

758 EREVLIXI OUTPUT = 'EREVLlXl* : ( END ) 

759 EREVLIXE OUTPUT = •EREVI.XX2* : ( ENOl 

760 ERCV3A OUTPUT - •ERCV3A* KENDl 

761 ERDD27A OUTPUT- ^ER0D27A* ; (ENDl 

762 ERDD27B OUTPUT = •ER0O27a* :ieNO> 

763 ER0027 OUTPUT = •ER0D27* : < END > 

764 ERCONVl OUTPUT « •ERCONVl* :(ENOI 

765 ERBB3 OUTPUT = •ERBB3* tlENOi 

766 ER0Q2 OUTPUT = •ERB02* MEND) 



767 

EReai 

OUTPUT = • 

ERBUt* : 

<ENOJ 


768 

ERBC3A 

OUTPUT ^ 

•ERQC3A' 

:(END> 


769 

ERBSSO 

OUTPUT = 

•ERBSSO* 

:(END) 


770 

ERBSSl 

OUTPUT = 

•ERBSSl* 

: C ENO 1 


771 

ER0SS2 

OUTPUT = 

•ERGSS2* 

: (END ) 


772 

ERBENO 

OUTPUT X 

•ERGENO* 

: ( END ) 


773 

ER GENl 

OUTPUT = 

•ERGENI* 

ItENOI 


774 

ERGEN2 

OUTPUT = 

•ERG6N2* 

: ( END ) 


775 

EREQUl 

OUTPUT X 

•erequi* 

: (END) 


776 

EREQU2 

OUTPUT X 

•EREQU2* 

: i END ) 


777 

ERBCl 

OUTPUT X • 

ERBCl* : 

(END ) 


778 

ERKOl 

OUTPUT = 

•EHMOl* 

: (END! 


779 

ER8C2 

OUTPUT X • 

ERBC2* : 

(END) 


780 

ERBC3 

OUTPUT X • 

6RDC3* : 

(END } 

•- 

781 

ERBC5 

OUTPUT X • 

ERBC5* : 

(END) 


702 

ERBC6 

Output x • 

ERBC6* : 

(ENDl 


783 

EREE7A1 

OUTPUT X 

•EREE7AI* 

: (END! 


784 

ereeo 

OUTPUT X • 

EREEO* : 

(END 1 




785 EREEI OUTPUT » •EHEEl* :<END) 

786 EREE7A OUTPUT * •EREE7At :TENO» 

787 EREE7A2 OUTPUT = •EREE7A2* MENDI 

788 EREEllB OUTPUT = •EREEllB* :<END> 

789 ERPPl OUTPUT = •ERMPl* :<ENOI 

790 ERMP2 OUTPUT =.»6RMP2* :<END) 

791 EHMP3 OUTPUT = *ERPM3* :(ENO» 

792 EREE7B OUTPUT = •EREE78* : ( END ) 

793 EHEE9 OUTPUT = •EHEE9* :«END) 

794 EREE9A OUTPUT = •EREE9A* 

795 EHCB3B OUTPUT = 'ERCVIS* ;(END) 

796 ERCV3C OUTPUT = 'ERCVSC* :(ENO» 

797 ERCV4A OUTPUT = •ERCV4A* MEND) 

798 ERCV4B OUTPUT * 'ERCVAB* : t END ) 

799 ERCV4C OUTPUT = ’ERCVAC* MEND) 

800 ERSE OUTPUT = •ERSE* MEND) 

801 EREEPO OUTPUT = "EREEgO* MEND) 

802 EREE9S OUTPUT * ‘EREEOS* ! ( END) 

803 EREE97 OUTPUT = •6REE97* ) I END ) 

804 EREE99\ OUTPUT •ESEE99* li^ND) 

805 EREE92 Output = mend) 

806 ER0D13 OUTPUT ^ •ERDOI3* :{END) 

807 ER0DI4 OUTPUT = 'ERODIA* MEND) 

BOB ERDD2I OUTPUT = •EROOll* J(ENO) 

809 END 


.4. 'J-.ji .. . 


iiiJjBa n<. 
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— — SFSCIFICATION 

AO=0,AI200=l200.BZ3.Cl80HF=l»O.B15.C3ga=3.B2.CSBl5=5.Bl5. 

DEG2=0.0 1 1 I 1 I I I UO.OEGA =0.02222222 00.0686=0. 0 3 33333360. DEG 15=0.0833333300. 
DEG20=0 . I I I 1 I I 1 IBO .OEG2S=0. 1 30888 883 0.06LTAT=0. 0500 .Oft.OELTAT=0. ISO. 
FOBKG=0.8B3.ABS (GAMMA) .UT.l .DO . ADS( GAMMAC) .LT .0 .005S5555B0. ABS(GAHCMO».l.T. I .SO. 
A8S( GS) .lE .0.6 25BIS. A0S( GSA > .LT. t .00 . ABS(GSDEV) .L6. 0.00 I I tl 1136. 

HRAO.GE. O.ANO.HRAO .LT. ISOO" B23 . HR 6F . GE .SO .8 1 5 .AND .HREF .LT. 1 .00. 

ABS(HOCF).LE.l .B8. . 

KOAMP=0« 9H0 • AtiSC KHO ) »LT • 1 •HO • AND# A3S ( KHD ) •GT,*0» 01 60O» AQS( KFLR) •B15* 

I =70 0 . U IX . K2=3 .n I S. K3=0 . 0 3 00 • K4= 0. K 5=0 . 39B 0 . K6=0 .653B0 .K 7=2. BIS. 

K8=-l .60 5. K10=-3. BIS. K I 00 0=837. B2 3. K 120 0=9 26.023. 

ABSCLATSTfU .LT. I .00. LGAMC .GE.-O .0 0535SSSBO . AND. LG AMC.UE. O . 

LIMY=*00 .823 .LI MLOC= 100 .923 .LI MPR=0 .00333333B0.LIMI 80=003777777. 

ABSILOCOEV ) .LE .0. 0 I I 1 I 1 1 IB6 . ABSILQCSTR ) .LT . 1 .BO .MDA=2S0 .B23, 

ABS(PCMD) .LE.0.03333333B0. PER 100=35. 010. Ft 0 2=3. 1 A 15926B2. 

A8S(PITCH).LT.l .80.ABS(PSIF).LT.1 .00 . AflS (RCMD ) .LE .0 . 1 338888880, 

ABSSROLL ).LT . 1 .SO * ABS( RWYHOG) -LT. l.BO .RESET =BOOOOOOOO .SET-Ol 1 1 111 11. 

TaUI= 3.B3.TAU2=60.B6 .TAU3=l .02 .TAU4=3.BA .TAUS=1 .B3.TA06=t .SB3, 

TF=16.85«TI MER . GF . 0 , AND . TI MER .lT . l.t30.ABS(TK).LT.1 .BO. ASS (TPl ) .LE, 1 .33. 
ASStTP2) .LF .l .B3.A8S(TP3) .LE. I .81 3. ABS( TP4 ) .LT. 1 . DO • ABS< TPS t .LT.l.BO. 

ABS(TP6) .LT.I .BO. ABSITpr ) .LE.1 .03 ,T 1 2=0 A 00 . A3S( VERSTR » .LE, 1 . BB, VGS.GE . 1 00 .B 15 . 
ABS(YETA).LT. 1 . BO . ADSI RCMD ) .LE .0 . 1 388888830 .8 INTME .GE .0 .AND. BINTME.LT . I .BO . 
MSKL I 5=0 00077777, ABStRLFD 1 .LT . 1 .0 0 








tSET.C,Z3,D). (T12iC.fl»0> • ITMEFt-G. V.a.O) . (PCUMWD.V .B.Q). IMPtl-S.V.B.a> 

{ ILSONi V.B.OJ . IGRUNCI*V.Q.Q) • (START.V ,B,O).(A1200.C.23,M 
«LOCFD.V ,R,01 . ( LOCgC .V.3 .0) . ( FLARE. V .a.O).(KI.C.ll.t) 

(GPUOCD.V.l2.I).(V£TA.V.23.1).CrK.V.O.A ) , t B WYHDG. V • 0 • A) • C PSIE.V .0 .A> 
<DEG2.C,0,A1. <LIMUdC.C,23.I > . { GUI 020 . V , S .0 ) . I LBS. V . fl. O) . I BOLL .V .0 . A » 

IRLFD. V. O.A) . (LIMY.C .23. t ). (PFBIOD.C. 10 . I I . IKS. C. 0 . I ) . I TP I . V. 3. A ) . (TAUl .C.3.I > 
IDLLTAT. V. 0. I » .(GS. V . 15. I ) . (K6 .C. 0. I ) . I K DAM P.C. 0. I » . ( TP2. V. 3.A) , I HRAO , V . 23 , I > 
tKIOOO.C.23. I l.I TP7. Y.3.A).(T AU2. C.6 • X 1 . (LIM1B0.C.3.A). I LOG STB . V. 0 . A > 

I 0EG2 0.C.0 .Al . I CAPT. V.D.O 1 . ( AO.C. O.A ) . I K 120 0 .C. 23 . I ) . I RCMWLO .V.R .0 1 
I PCMVLO. V.B .0) . (LATSTR. V.O. Al . (DEG25. C. O.A).(RCMO.V.O.A). (TAU3.C.2.I ) 

I LOCVLD. V.B.Q 1 . IDEGA .C.O.A) • IgSFD.V.B.Q l.IGSESNS.V.B.Q). I GAMMA. C. O. A 1 
ILGAMC.V.O.A) . (GSDEV .V. 12 .A) . (TP3.V. 15. A ). I TAU4.C.A .1 ) . ( C IBOBF.C. 1 S. I ) 
{K3.C.0.11.<GSA.V.0.A).(KA.C.0.I).(TPA.V.0.A) .( HOCF, V . 15.I1.IK2.C.IS.I1 
nC10.C.15.1).(TF.C.S.U.(K7.C.lS.l). tKa.C.5.U.(HP,EF.V.lS.t).(KFLR.V.8,f » 

IMSKLl S .C.a. I1.(LGAMC.V.O.A).(TAU5.C.3.I).(L1MPR.C.O.A). 1 GAMCMD. V. O . A I 
( PITCH .V .O.A) . I TP6. V.O. A ) . I T AUG »C . 3 . I ) • ( TPS .V.O. A ) . ( GAMM AC. V . 0 . A ) . I VGS. V, 15.1) 
IKHO.V.O.I ) .(P1D2*C. 2. I I . (C3B2.C.2. I ) .< MOA.C .23.1 1 . ITIMER.V.23. I ) 

IBINTME. V.23. I I ilFDBKG.C. 3, I 1 . I DEGG . C . 0 . A ) . < PCMO. V . 0. Al . I GSVLO. V.8.0) 

1 VERSTR. V. IS.l ) .IC5B15.C. 15 . I ) . ( LQCOEV . V .1 2 . I ). (OEG 1 5.C, O . A ) . (GU 1 030. V. 0. O ) 





artlB^gkiaiiliib 









LISTING OF THE PROGRAM TO BE VERIFIED 


REM *•****»♦* 

REM FLIGHT 

RFM *****•*»• 

REM 

CeXITO.SPEC 


director ROUTINE 


IFD SEX 

CFORTN 

LOA 

tmeflg 

TRZ 

EXITI 

LDA 

PCUMWD 

ANA 

T12 

STA 

MPILS 

LDA 

MPILS 

TRZ 

*♦5 

LOA 

ILSON 

TRZ 


LDA 

GRUNO 

TRZ 


STZ 

ST ART 

STZ 

LOCFD 

STZ 

gsfd 

TRA 

CRUZFD 

LOA 

START 

TNZ 

FDl 

LOA 

set 

STA 

ST ART 

STZ 

TPl 

STZ 

TP 2 

STZ 

TP3 

STZ 

TPA 

STZ 

TP5 

STZ 

TP6 

STZ 

TPr 

STZ 

locfo 

STZ 

LOCOC 

STZ 

FLARE 

CEXITO. 

SPEC * 


REAL TIME 7 
eUTRACT BIT FOR 

iLS selecteo on 

had I MODE panel 

*•»♦» use LAND MODE WHEN AVAILABLE ♦***»* 
ILS TUNED 7 
NOT GO AROUND 7 


FIRST PASS 7 

START=MPILS S ILSON X I— GRUNOI 

INITIALI7.E FOR 
FOR FIRST PASS 


CFDI • MPILS=MPILS0 
TP6=T PG02 • TP7=TP7 
,GSFD=GSFO02..NOT 


1. TPI=TP102.TP2=TP202.TP3=TP302.TP*=TPA02.TPS=TPS02. ^ 

02. LOCFD=LOCF003.LOCOC=LOCOC02.FLARE=FLARE02.START-START03 

•CFOINl rTMEFLG.ME*0 


FOl 


F02 


LDA 

locoev 

Mpy 

Kl 

STA 

yeta 

LOA 

TK 

SUB 

RWYHDG 

STA 

psie 

AB5 


SUD 

OHG2 

T RM 

F03 

LOA 

YETA 

AQS 


SUB 

L IMLOC 

TRM 

F03 

LDA 

GUID2D 

TRZ 

FOA 

LDA 

LOCFD 

TNZ 

L ANDFO 

TRA 

CRUZFO 

t HA 

. T 


COMPUTE PSl 
ERROR 

WITHIN LIMITS 7 

UAT DEV WITHIN LIMITS 7 
2D GUIDANCE ON 7 
□RANCH LOC/CRUISE F-D- 


rnT 




. ♦ 

CF04tPPlLS=MPILS0 1 •TPl=TPI02*TP2=TP2Q2,rP3=TP302*TP4=TP402*TP5=TP502. 

V, 

A . 

TP6=TP602 

,TP7=TP702. 

LOCFD=LGCFD03.LQCCC=LaCaC04.FLARe=FLARn02*START=START03, 


A 

YETA=^yFTAO 1 • PS IE- PS I £01 • GSFD=G3F002* .NOT .CFDINl *TMEFLG.N6.0 


F04 LOA 

LUS 

LOG BEAM SENSED ? 



TRZ 

FD2 




LOA 

LOCFD 

TEST POR first pass 



TNZ 

lanofd 


V . 


LDA 

SET 

initialize 



STA 

LOCFD 

RLFO 



LDA 

ROLL 

AS FD BARS 



STA 

RLFO 

COME UP 


A 

CEXITO.SPEC. 



A 

CLANOFD.MPILS=MPILS01 . TP l=Tpt0 2. TP2=TP20 2 *TP3=TP302.TP4=TP402* TP5=TP502 . 



TP6=TP602 

,TP7=TP7 02. 

LQCFO=LQCFOOS .LOCQC=LQCQC04.FLARe=FLA«E02.START=START03, 


A 

RLFD=RLF00 2. YETA= YET AO 1 * PSl E=:PSl EO 1 . G£FO^GSFD0 2. ♦NOT.CFDINl.TMEFLG.NE*© 



••NOf.CCRUZFO 


V- 

LANDFD luiOA 

LOCOC 

LOCALIZER ON COURSE 



TRZ 

F05 

NO. SKIP COURSE CUT LIMITER 



LOA 

YETA 




LOO 

LIMY 




TRA 

SRLMT 




TRA 

A 4-2 



F05 LOA 

YETA 

YETA OR LIMITED YETA 



0 IV 

PERI 00 




OlV 

PERIOD 


■■ w ' ■ 


MPY 

KS: 

COMPUTATION OF 



SUO 

TPl 




D IV 

TAUl 

TPl = (YETA X K3 / PER**2l ✓ ((TAUl X S<(;1 » 

-w ■ 


MPY 

oeltat 




SAR 

3 




AOS 

TPl 




LDA 

GS 

44AA *4* 444A4*A«A 



» OlV 

PERIOD 




MPY 

K6 

COMPUTATION OF 

■ w . . 


MPY 

psie 




MPY 

KOAMP 

<GS X PSIE X KOAMP X K6I/PER100 



SLL 

2 


'•W' 


STA 

TP 2 



■. A 

CEXITO.SPEC. 



A' 

CL ANDFO.MPI LS=MPILSOI .TPI=TP103. TP2=TP203 . TP3=TP302 •TP4=TP40 2. TP5=TP502* 


A 

Tp6=TP6 0 2 

, TPy=TP7 02. 

LOCFO=LOCFO05.LOCOC=LQCOC0A.FLARE=FLARH02*START=STARTt>3, 


RLF0SRLFDQ2, veTA=VeTA01 •PSIE=PSreO 1 1 
. .NOr .CCRM 2 FD 


G SFD= GSF 00 2 • ♦ NdT • C FO I N I . TMEFCG .NE • 0 


V- 


LOA 

HRAO 

AAA* AAAAAAAAAA a 



SUB 

Kiooo 




tRP 

F06 


W ■ 


LOA 

TP2 




SUB 

TPt 

WASHOUT IF 



STA 

TP2 

HRAO LESS 

' ; 


MPY 

oeltat 

THAN 1000 FT 



OlV 

TAU2 




SAR 

6 



’ 

AOS 

TP7 



. A 

CEXIT0.SPFC4 



' A 

CF06. MPILS=«MPILS0 1 . 

TP 1=T P 103. TP2=TP2 05. TP 3=TPJ0 2 

V.. 

A ' 

TP ft* t POO 2 

, TP7aTP704 

• L OCF D = LOCF 00 5 . LO C CC= L OCO CO 4 . 1 


A 

HLFO=RLF002. YETA= YET AO 1 . PSI E=PSI EO 1 4 GSFO=GSF002. 


. « 

• .NOT.CCRUZFO 



FOS LDA 

TP2 

AAAAAAA AAA AAA A A 



SUB 

TPl 




LOG 

LIM180 




TRA 

SWlmt 




SAL 

3' : ■ 







MPY 

psie 

LE ZERO 7 

TRZ 

*+2 


TRP 

FD 7 


LDA 

LOCSTR 

LOCSTR X PSIE 

MPY 

PSIE 

GE ZERO 7 

TRM 

FD 7 


LDA 

ADS 

PSIE 

PSIE GT 20 

SUB 

OEG 20 


TRM 

F 07 


STZ 

CAPT 


LDA 

AO 


TRA 

FOlt 



♦ CexlTO.SPEC, 

• CF07. WPILS=MPILS0 l.TP!=TP103.TP2=TP205,TP3=TP30a,TP4=TP402*TP5^Tf>50a* 

* TP6-TP602.TP7-TP7 04 •LOCFO=LOCPO03,t.OCaC=LaCOC04.FLARe-FI_ARed2»START=START03« 

• «LFD=RLF.D 02 .yFTA=YETA 01 .PSIE=PSlEOl #GSFO=GSP 002 *.NOT.CFOIN 1 «TM£FLG.NE.O 

♦ *LOCSTR=LOCSTR 01 . •NOT.CCRUZFO 

FD 7 UOA SET 

STA CAPT 

LDA HRAD HRAO GT 12007 

SUB A 1200 

TRM F 08 LESS THAN 1200 

LpA LOCSTR 

TRA FD 10 

FOB LDA LOCSTR 

LOG PCGl 5 , ' 

TRA SRLMT limit LOCSTR AT LOW ALT. 

TRA FDli 

♦ CFXI TO. SPEC, 

♦ CCRUZFO* START=START 04 •LOCrO=LOCFO 0 6 « GSFO=GSFO 02 »MPILS-MPILS 0 l • TPi=TPl 02 * 

• TP2=TP202f TP3=TP302.TP4=TP402. TP5= TPS02 . TP6=TP602»TP7=TP702, 

4 LOCOCr:LOCOC 0 4 ,FLAREsiFLARE 02 .yETAsYETAOE. PSiE=:PSie 02 .TMEFUG«NE *0 

4 •.N 0 T.CI'D 42 

CRU 2 FD LDA GUID 2 D CRUISE F .D . 

TN 7 FO «4 GUID 2 D ON 7 




! 

f 




EXiri STZ RCMVLD DOTH ROLL AND 

V STZ PCMVLO PITCH COMMANDS INVALID 

♦ .FALSE. 

TRAf EFDRTN 
FD9 LDA LATSTR 

FOlO LDO DEG2S 

TRA SRLMT 
FOU SU$ RLFD 

SAR 2 
0 IV TAUJ 

^ LDD 0EG4 LIMIT ROLL. RATE 

TRA SRLMT 
HPY OELTAT 
AOS RLFD 
SUB ROLL 
LOO DEG25 
THA SRLMT 
STA RCmO 
4 CEXITO.SPFC* 

•s,. • CFO I 1 .START=START04*L0CFO-LOCFO0 6*GSFO=GSF002*MPICS=fMPIUSOl .TPl=TPid4. 

♦ TP2 = TP20 6* TP3=TP3 02 .TP4=TP4 02. TP5xTPSd2 * TP6-TP602. TP7»TP705*FLAREi=FLARE02. 
4 LOCOC^LOCOCOA. YETAeyETA0 2.PSlE=PSlE0 2.LOCSTR=LOCSrR02*GAPT=iCAPT04« 

4 RLFO=RLF004 • RCMD=RCMOOI 



1 . OA 

LOCFD 

444*44 4 4 44 4 44-4 4 


TRZ 

Fon 


S-' 

LDA 

LOCVLO 

ROLL COMMAND 





SJA RCMVuD COMMAND VALID 

tra vertfd 

FD13 LOA GUID2D 

TNZ FD12 • 

FDIA STZ RCMVLO ***♦**•**•*••** 

• CFOl 1 .START=ST AWTOA ,LQCF D=L QCFD06 . GSFD=GSF00 2. MP U_S=MP ICSO 1 . TP 1=TP104 . 

• TP2=TPa06.TP3=TP302.TPA=TPA02. TP5=TP5 02 . TP6=TP602 . TP7-TP70S*FL ARE-FL ARE02. 

• LOCOC=UOCaCOA.VETA=YETA02.PSlE=PS I EO 2 .L0CSTR=LQCSTR02. CAPT=CAPT04. 

• RlFD=RLF004.RCMD=RCMO01.RCMVL0=RCHVUD04 

VERTFD LOA LOCFD TEST FDR 1L£ FLT DIR 

TRZ VGRUZ GQ CRUISE MODE 

VLANO LDA GSFO TEST FDR FIRST PASS 

TNZ FOlS NOT FIRST PASS 

LDA GSaSNS TEST FDR GLIDE SLOPE BEAM SENSEDC 

TRZ VCRUZ GLIDE SLOPE NOT SENSED GO TO CRUISE 

LDA SET FIRST PASS IN GLIDE SLOPE 

STA GSFO set GSFO HI AND 

IDA GAMMA 1 M T 1 ALl ZE LGAMC T O ROLL 

ST* LGAMC WHEN FO BARS COME UP 

FDI5 LDA GSDEV *»44GPGSOV=GSDEV*»* 

MPy Kl 

SLL a COMPUTE GAMMA CMO 

SUD TP3 

OlV TAU4 TP4=IGS0EVXtCl/I TAU4SFI )XK3/iaO>4GSA-K4 


GLIDE SLOPE angle 


LDA 

GSFO 

TNZ 

FDIS 

LDA 

GS8SNS 

TRZ 

VCRUZ 

LOA 

SET 

STA 

GSFO 

LOA 

GAMMA 

STA 

LGAMC 

LDA 

GSDfcV 

Mpy 

Kl 

SLL 

a 

SUD 

TP3 

0 IV 

TAU4 

Mpy 

oeltat 

SAP 

4 

ADS 

TP3 

0 ly 

C1808F 

MPY 

K3 

AOO 

GSA 

SUR 

K4 

CMA 


STA 

TP4 


STA TP4 *************** 

CEXITO.SPEC. 

CFOiS.STABT=StART04.LOCFD=LOCFD06.MPILS=MPILSOI.TPl-TPI04. 

TP2=TP206. TP3=TP303.TP4=TP403. TPS=TP5C2. TP6=TP602,TP7-TP70S.FLARE-FLARE02. 

LOCaC=LOCOC04.TETA=VETAO2.PSIE=PSIE02,LOCSTK=LOCSTR02.CAPT=CAPTO4. 

RLFD=FLFD04.RCMO=RCH001.HCMVLD=HCMVL004.GSFO=GSFD03.LGAHC-LGAMC02 

lpa Flare flare laTched ? 

TNZ FLRALT 

LOA HOCF .,♦*♦*»*♦***»♦»♦ 

ADD K2 LIMIT HDCF 


LOA 

Flare 

TNZ 

FLRALT 

LOA 

HOCF 

ADD 

KZ 

TRM 

4^3 

LOA 

KIO 

TRA 

4*2 

LOA 

HOCF 

AOO 

K7 

MPV 

TP 

DIV 

KB 

STA 

HREF 

CEXITO. 

SPEC. 


COMPUTE 


IF flare 


NOT LATCHED 


CFDIS«ST*RT=STAHT04 .LUCFU=l-ui.PUUo ."t-i 

TP2=TP206*TP3=TP303.TP4=TP4 03.TPS=TP502tTP6= TP602.TP7-TP70S.FLARE=FL*RE02. 
LDCOC-LOCOC OA. YET A=YETA02 *PS IF =P5 lEO 2 •L0CSTR=L0CSTR02 • CAPT=CAPT04» 

RLFOaRLFD04 .RCMO=RCMDOI.RCMVLD=RCMVLD04, GSFD=GSFO03.LGAMC=LGAMC02. 

HREF=HRRF02 

FlRALT LOA HRAD COMPARE MRAD AND HREF 

DIV HREF FOR FLARE LATCHING 

STA XFLR and FLARE GAIN COMPUTATIONS 

sun MSKLlS HRAOZHRCF 

TRP »FA LESS THAN ONE 

LOA SET YLS. SET 

STA FLARE flare LATCH 

TRA * *? 



I 


CeXlTO.SPEC. ■■■ . . ^ 

CFDlS.START=SrART04,COCFO=LOCFO06.MPILS=MPILS01 ,TP1=TP104, 

TP2=TP20G* rp3=TPT03» TP4=TPA03* TPS=TPS02* TP6= TP60 2 •TP7=TP70S« FL AR£=FLARE03. 
LOCOCsUOCOCOA, YET A=YfcTA02 tPSIE^PS IE0 2 *LOCS TR=LQCSTR05? • CAPT=CAPT04 • 
RUFD=RLFO04,RCMO=:RCMD0l,RCMVLD=rpCMVLD04,GSFD=GSFD0 3.LGAMC=LGAMC02t 
HREF=HF<eF02* JCFLRsKFLRO 1 


LDA 

KFLR 




LOQ 

MSKL15 




TRA 

SF^LMT 




SAL 

8 




MPY 

TP4 




SUB 

K4 




TRM 

*43 

4*44 *4*4 ♦♦***44 



LOA 

AO 

LIMIT GAMMA COM.MANO 



TRA 

449 

BETWEEN ZERO AND MINUS 2*GSA 



STA 

GAMMAC 




A CD 

GSA 




ADD 

GSA 




TRM 

*43 



. 

LOA 

GAMMAC 




TRA 

♦ 43 




SUM 

GAMMAC 




CMA 


4444 444r444 4*444 



SUO 

LGAMC 




OXV 

TAU5 

INTEGRAiTE GAMMA COMMAND 



SAW 

■ 3 '■ 




LDO 

LIMPR 

LIMIT PITCH RATE 



TRA 

SRLMT 


* 


MPY 

deltat 




AOS 

LCAMC 




SUB 

GAMMA 




STA 

GAMCMD 




cexrro.sPBC. 



-- 


CFD 15 *STARTs:START 04 »LOCFO=LOCF D06 t HP I LS» MPILSO I •TPls=TP104* 

TP2=TP206 .TP3=:TP303f TP4=rp4 03«TPS=TP502»TP6=TP602 *TP7j= TP70S*FLARE=FLAPE03« 
L0CCC=L0C0C04, YCTA=YETA0 2*PSIEt=PS IE0 2*LOCSTR=:LOCSTR02 *CAPTsCAPT04« 
RLF0=rLF004,«O^D=RCmD 0I •RCMVLO=RCMVLD04*GSFD=GSFD03#GAMCMOr:GAMCMOOl * 
HRFF=:HRFF02* KFLR=KFUHO 1*GAMMAC=GAMMAC01 .UGAMC=LGAMC03 


PITCH 

TP5 

TP6 

OELTAT 

TAU6 

3 

TPS 

TP6 

FOBKG 

3 


COMPUTE 

WASHOUT 

TIME 


constant 


GAMCMD 

DEG6 

SRLMT 

PCMD 


444444444444444 

COMPUTE PITCH COMMAND 
LIMIT PITCH CMO TO 6 DEG 


CGXITO.SPEC. 

CFDIS «STAR r=ST ART04 •LQCFD-taCFDOG • Mp I LS=MPIUS 0 I •TP1=TP 104 , 
tP?s:TP206,TP 3 sTP 3 03, Tp4s=TP4 03, TPS=TP5C3, TP6=TP603*TP7=TP70S,FLARE=FLARE03, 
LdCaC^LpCQC04, YETA=yCTA02 •PSl£=PSie02,LDCSTH=LOCSTW02,CAPT=CAPT04, 
PUFD=RLFD04 ,RCMD=sRCmO 01,HCMVLO=RCMVLD04, GSFD=GSF003,LGAMC=LGAMC03, 
HREFSHReF02,GAMMAC=CAMMAC6l.PCMOsPCMO01.KFLR=KFLR:0l ,GAMCMD=GAMCMDO 1 


LDA 

TRZ 

EXIT3 LOA 
STA 

♦ .FALSE. 

1 »Af 


GSVLO 

eXIT2 

RCMVLD 

PCMVi.0 


GS TUNED 7 


PITCH COMMAND IS VALID IF 
ROLL COMMAND IS VALID 


i J 






L. 


trz 

EXIT2 

LOA 

VERSTR 

LDQ 

C5B15 

TRA 

SRLMT 

0 IV 

VGS 

SAR 

2 

D IV 

KHO 

OIV 

PI 02 

LDQ 

0GG6 

TRA 

SRLMT 

sua 

PCMD 

OIV 

C302 

MPY 

DELTAT 

SAR 

Z-'-' 

AOS 

PC^'0 

LOA 

MOA 

SUB 

HR AD 

TRM 

EXITS 

LDA 

timer 

SUB 

B 1 NTME 


NO. 3LANK VERT COMMAND 

FETCH 30 GUIDANCE STEERING SIGNAL 

5 FPS**2 LIMIT 


LIMIT PCMO TO 6 OEG 


« . 

,'-• ■ 

♦ 


« 4r ♦ 4( * « « « 4> « 4i * « ♦ 4> 

MDA TEST 

FLASH FLT. DIR. 
CexlTO.PCMD=PCM002.RCMVLD=RCMVL004 .RCMD=RCMOOl . RLFO=RLFOOA . 
StART=STAnT04*UOCFO=LQCFO06.GSFD=GSFO02.MPILS=MPlLS0l.TP|=TPl04. 
TP2=TP206.TP3=TP302.TP4=TP40?.TP5=TP502.TP6=TP602.TP7=TP705.FLARE=FLARE02. 
LOC CC=L0CQC04. YET A= VET AO 2 .PS I E=PS I EO 2. LOG STR=LOCSTRO 2. CAPT=CAPT04 
.KFLR=Kp*LHO 1 

TRZY EFDRTN 6ARS IF 

DINTME BELOW MINIMUM 

timer DESCENT ALTITUDE 

PCMJUD 

exits ♦♦♦♦♦♦♦*♦♦♦*♦♦♦ 

PCMVLD PITCH COMMAND INVAUI-O 


LDA 

STA 

LDA 

trz 

EXIT2 ST2 

♦ .FALSE. 

TRA4 


EFDRTN 




C«D).LT.I.ao/ABS(GSt.UE.0.6aSBlS.ABS(r.SA..LT.l.DO.ABS<GSDEV).tE.O.OOinill86.HRAO.GE.C.AN!>.HRAD.LT_. 

ET...BO.ABS(«DCE..LE.I.B3.KO|MP=0.980.ADS<KHD)...T.^.BO.ANO.ABSCKH^^ 

!:?:t^B;!lBl(;P7;i:E!ltB3‘.^'l2:Bloo:ABSrvERSTR):ce:i:BO:VGS.GE..;o.B.B.A;s.YErA,.Lr...BO.ABS,RC«B..LE.0..38aBeBBBO.B,NTME.GE.O.ANB.B, 

NTME.LT. 1 .BO iMSKUl 5=OCiOOT/777 • ABS IRLFD ) .L.T • I .BO ^ 












CONTROL PATH 



♦CEXITO. SPEC4 









SEX EFORTN 

LOA TMEFLG 

•NOT.t^AC.EQ.O) 

LDA PCUMWD 

ANA 

T12 

STA MPILS 



LDA MPILS 

•NOT.ISAC.EQ.O) 

LOA I LSON 

•NOT.ISAC.EQ.O) 

LOA 

GRUNO 

•NOT.I SAC.EO.O) 



STZ START 

STZ LOCFD 

STZ GSFO 







♦ Cexi TO * SPEC.CCRUZF0*START=START0 4,LPCF0 

=L0CF006. GSFD=GSF002.MPILS=MPILS0 1 . TP 1= 

TP102. 

TP2=TP202.TP3 

=TP302.TP4=TP402.TP5=TP502.TP6=TP6 



02»Tp7=TP702.LQCOC=LaCOC04.FLARE=FLARE02 

. VET A=YET A02. PS ie=PSIE02. TMEFLG.NE.O. .NaT.CF0424 




♦♦ VERIFICATION CONDITIONS ♦♦ 







-- 

CEXITO 

SPEC 

£FDRTNl=SRA 

saci=tmeflg 


•NOT.ISACl 

•EO.O) SAC2=RCUMW0 



SAC3=AN0ISAC2.T12) 

MPILS1=SAC3 

SAC 4=MPILSl 

•NOT.I SAC4.EQ 

• 0) 

SAC5=ILS0N 

•N0T.ISAC5.E0.0) 



SAC6==GRUN0 

•NOT. ( SAC6.EQ. 0) 

START 1=0 

LOCFOl=0 


GSFDI=0 




•implies* 










CCRUZFD 

start I=START04 

LOCFDl=L0CFO06 

GSFD1=GSFD02 


MPILSI=MPILS0 1 TPl=TPI02 



TP2=TP202 

TP3=TP302 

TP4=.TP402 

TP5=TP502 


TP6=TP602 

TP7=TP70 2 



LQCOC=LOCOC04 

FLARE=rLARE02 

YETA=YETA02 

PSIE=PSIE02 


TMEFLG.NE. 

0 .NaT.CF042 


JT' 

— CONTROL PATH 

2 — 

pr* 





- 


♦CEX1T0.SPEC4 









SEX EFORTN 

LDA TMEFLG 

•NOT. (SAC.EO.O) 

LOA PCUMWD 

ANA 

TI2 

STA . MPILS 



LOA MPILS 

•NOT. (SAC«EQ.0T 

LDA ILSON 

• NOT. I SAC .EO.O) 

LOA 

GRUNO 

( SAC.EO.O) 



LDA START 

•NOT. ISAC.NE.O) 

LOA SET 

STA START 

STZ 

TPl 

STZ TP2 


r' 

STZ TP3 

STZ TP4 

STZ TPS 

STZ TP6 

STZ 

TP7 

STZ LOCFD 



STZ LOCOC 

STZ FLARE 








♦ CEXITO. SPEC. CFDl . 

MPILS =MPIL SO t. TPl -TPI 0 

2.TP2=TP202.TP3=TP302.TP4=TP402.TP5=TP502.TP6 

=TP602.TP7=TP702.UOCFO=LOCFa03.LOCOC=LOCOCO2,FL 



ARE=F LAR eo 2 . START= 

ST ART03.GSFD=G5FD0 2. .NOT.CFDINl . TMEFLG. NE 

• O^ 




’ ^ 


♦♦ VERIFICATION CONOITIONS ♦♦ 




r' 



CEXITO 

SAC3= AND CSAC2. T 

SAC6=GRUND 

TP11=0 

TP7t=0 

•IMPLIES. 

CFDl 

TPSI^TPSOZ 

STARTI=START03 


SPEC 

MPILS 1=SAC3 
SAC&«E0.0 
TP21=0 
LOCFOl=0 

MPILS l=MPILSOI 

TP61=TP602 

GSFO=GSFO02 


CONTROL PATH 3 — - 


EFDRTN1=SRA 
SAC4=MPILSl 
S AC7=START 
TP3I=0 
LOCOCl=0 

TPl 1=TP|02 
TP7 l=:TP702 
•NOT.CFDINl 


SAC l = TMEFLG 

•NOT.(SAC4.EQ«0) 

•NOT.(SAC7«NE«0) 

TP4l=0 

FLAREI=0 

TP21=TP202 
LOCFOl=LOCF 003 
TMEFLG.NE.O 


•NOT.fSACl .EO.OI 
SAC5-ILSON 
SAC3=SET 
TP51-0 


TP3I=TP302 

LOCOCI=LOCOC02 


SAC2SPC0MW3 
•NOT. (SACS.EQ* 
STARTl=SACa 
TP6l=0 


TP4|=TP402 

FLARE135FLATE02 


♦CEXITO. SPEC* 

SEX EFORTN LOA TMEFLG .NOT • IS AC • EO.O ) LOA PCUMtfO ANA T12 STA MPILS 

LDA MPILS .NOT.(SAC.EQ.O) LOA ILSON .NOT . ( SAC .EQ .0 ) LOA GRUNO CSAC.EQ.O) 

LDA START ISAC.NE.O) 

♦ CEX I TO. SPEC. CFO I ,MP ILS=MPI LSO I . TPl = TP I 02. TP2=TP202 » TP3=TP302 »TP4=TP4 02 .T P5=TP502 . TP6=TP602 *TP7=TP702 • LOCFO=LOCF003 • L0C0C=L0CQC02*FL 
ARE=FLAR602.START=ST ART 03. GSFD=GSFD0 2. •NOT.CFDINl .TMEFLG .NE .0* 

♦♦ VERIFICATION CONOITIONS ** 

SAC2=PCOMtfO 
• NOT* ISACS.EO.O > 


TPA=TP4D2 

FLARE=rLARz02 


CEXITO 

SPEC 

EFDRTNl=SRA 

SAC1=TMEFLG 

•NOT.ISACt.EQ 

SAC3=AND ISAC2 .T12 ) 

MPILSl=SAC3 

$AC4=MPILS1 

•NOT.ISACA.EO.O) 

SAC5=1LS0N 

SAC6=GRUN0 

$AC6.EQ.O 

$AC7=START 

SAC7.NE.0 


•IMPLIES. 

CFDl 

MPlLSla=MPILSOl 

TPl=TP102 

TP2=TP202 

TP3=TP302 

TP5=TP502 

TP6=rPei02 

TP7=TP702 

LdCF0=LOCFO03 

LOCOC=LOCOC02 

START=START03 

GSF0=GSF002 

.NOT.CFDINl 

TMEFLG.NE.O 















.NOT«(SAC*eO»0) 
LOA ILSON 


|_OA PCUMWET-^' 
<SAC»EQ*0) 


AMA 

STZ 


T12 

START 


STA 

STZ 


MPIUS 

UOCFO 


It 0* SPEC* _ ^ 

^ EFORTN LDA TMEFL.G 

UOA MPILS .NOT.I*AC.EO.O) EO* -- -,p, TPI03 TP2=TP202.TP3=TP302.TP*=TP402.TP5=T>502.TP6=TP6 

Oz.TP7=TP7O2.l-OCOC=LOCQC04.FLARe=FLARe02.YCTA Yt.RJ 


** VERIFICATION CONOITIONS •* 


CEXITO 

SAC3=«NO {iAC2.TI2) 
START 1=0 
.implies. 

CCRUZFO 

TP2=TP202 

UQC0C=LOC0C04 


SPEC 

MPILSI=SAC3 

LOCFDI=0 

START1=START04 

TP3=TP302 

FLAHE=FLARE02 


EFORTNl=SRA 

*AC4=MPIUSI 

GSFD1=0 

LaCFOI=LQCF006 

TPA=TP402 
VETA=YETA0 2 


SAC l=TMEFLG 
.NOT.ISAC4.EQ.01 


GSFDI=GSF002 

TPS=TPS02 

PSIE=PSIE02 


.NOT. (SACI .EQ .0) 
SACS=ILSON 


MPILSI=HPILS01 
TPG=TP602 
TMEFUG.NE. O 


SAC2=PCUMW3 

SACS.EO. 0 


TP1=TP502 

TP7=TP702 

.N0T.CFD42 


control path S 


STA MPILS 




• • VERIFICATION CONOITIONS 4* 


CEXITO 

SAC3=AN0(SAC2»T12) 
GSF01 = 0 
.IMPLIES. 

CCRUZFO 

TP2=TP202 

I.OCOC=l0COC04 


SPEC 

MPILS1=*AC3 


START1=STAHT04 

fP3=TP302 

FLARE=FLAHE02 


EF0RTN1=SRA 

SAC4=MPILSl 


LOCFOI=LOCF006 

TP4=TP402 

YETA=YETA02 


SACl=TMEFLG 

SAC4.EQ.0 


GSFOI=GSFO02 

TPS=TP502 

PSIE=PSie02 


.NOT.ISACl .EQ.Ol 

starti=o 


MPILSJ=HPILS01 

TP6=TP502 

TMEFLG.NE»0 


SAC2=PCUMW0 

LOCFOI=0 


TP1=TPI0 2 
TP7=TP702 
.N0T.CF042 


CONTROL PATH 6 

*CEXlTO,SPEC» r 

SEX EFORTN LOA THEFLG 

♦ .FALSE.-*- 

♦* VERIF ICATION CONDITIONS *• 

> SPEC 


<SAC.EQ»OI 


EFORTNl=SRA 


STZ RCMVLO 


SACl=TMEFLG 


STZ PCMVLD 


SACI.EQ.O 


RCMVLO 1=0 


CEXITO 
PCMVLD1=0 

.implies. 

.false. 

CONTROL PATH 7 . TP7=TP702 .LOCFO=LOCr D03*LOC0C=L0C0C02*FL 

»«''»« r» 

LOA UOCOEV MPY Kl .not. (SAC.LT*0) LOA YETA ABS , NOT. ( S AC • NE- 0> 

:“fsAC-L,MLOC.X !NOT.irc!LT.OI =,3F002:rpI:s::P I^S^^ !tP 

:ifT^7=;r7o".Lrcoc:L;for4:^ 









, ■: j.. 


5 t- 




TP3=TP302 
LOCOCi=LOCOC02 
SAC1=L0C0EV 
PSIE1 = SAC4 
SAC9 =SaC6-^LIML0C 

• IMPLIES • 

H«*ACa-LlMLOC» 

PSEE1=PSIE02 


TP4=TP402 
FLARE=FLARE02 
SM01 = KULTMI SAC I tK I ) 
*ACS=ABS<SAC4) 

•NOT* (SACO.LT.O ) 


CCRUZFO 

•N0T.CF042 


TP5=TPS02 
START=START03 
3AC2=MULT { SAC 1 • K I ) 
SAC 6=Nt SAC5-DEG2I 
SAC10=GUIO2O 


START=START04 


TP6=TP602 

GSFO=GSFO02 

YETA1=SAC2 

•NOT.<$AC6.LT.O) 

•NOT*(SACtO«EO«01 


LOCFO=LOCFD06 


TP7=TP702 

•NOT.CFDINI 

SAC3=TK 

SAC7=YETA1 

SACll*LUCFD 


LOCOC:=LOCOC04 


L0CF3=L3 CF333 
TMEFLG.NE.O 
SAC4=N(S AC3-RWYMOG» 
SAC3=A0S (SAC7) 

• NOT* (SACIUNE.O) 


YETAl=YETA02 


CONTROL PATH 8 

♦CEXITO.SPEC.CFDl « MP ILS=MPI Lie'll • TPl = TP 1 02. TP2=TP202 .TP3=TP302*TPA=TP402.TP5=TP502 *TP6=TP602 .TPY^TPYOa .LOCFl>=LOCF003 .LaCOC=LOCOC02*FL 

C. ARE=FLAR602* START=ST ART0 3 .GSFD=GSFOO 2 . • NGT • CFOf N1 •TMEFLG*NE*0« 

LOA LOCDEV MPY K1 STA YETA LDA TK SUB RWYHDG STA PSIE 

SUQ 0EG2 «NOT • ( S AC «LT *0 ) LOA YETA ABS SUB LIMLOC 

VH %R (SAC— L IMLOC «NOT* < $ AC -LT# 0 ) LOA GU102D *NOT • f SAC*EQ • 0 > LDA LOCFD fSAC*NE«0) 

♦ CEXITO*SPEC*CLANOFO*MPILS=MPILSO I.TP1=TP10 2*TP2=:TP202«TP3=TP302*TP4=TP4o 2*TP5=T»502.TP6=TP602*TP7=TP702.LOCFD=L3CF003 .LOCaCsLOCOCOA 

• FLARE=FLARE02*START=START0 3*RLFD=RLF002,YETA=YETAOJ«PSIE=PS1EOI*GSFO=GSFD02* .NOT. CFO INI .TMEFLG • N= • 0 . .NOT. CCRUZF04 

♦♦ VERIFICATION CONDITIONS »♦ 


CEXITO 

TP3STP302 

LOCOC=:LQCOC02 

SACl=LOCDEV 

PSIEI-SAC4 

SAC9sSACa-LIMLOC 

• IMPLIES. 
R(SACb-LIMLOC) 

V. PSI61=PS lEOI 


SPEC 

TP4=TP402 
FLARE=FLARE02 
$MQl=MULTM< SAC I *Kl ) 
$AC5s AflSI SAC4 ) 

•NOT. ( SAC9.LT.0 ) 


CLANDFD 

.NOT.CCRUZFO 


CFO I 

TP5*TP502 
START=START03 
SAC2-MULT(SACl.Kt ) 
SAC6*N( $AC5-0EG2> 
SACl0=GUlO2O 


LOCF02*LOCF005 


MPILS=MP1LS01 

TP6=TP602 

GSFO=GSFD02 

VETAIsSACa 

.NOT.f SAC6.LT.0) 

.NQT.ISACtO.EQ.O) 


LOCOCs:LOCOC04 


TPI=TP102 

TP7^TP702 

.NOT.CFOINI 

SAC3*TK 

SAC7SYETAI 

SACtl^LOCFD 


RLFOaRLFDOa 


TP2=TP20 2 

L0CF3=L3CF333 

TMEFLG.NE.O 

SAC4SNC S AC3*RWYH0G) 

SAC8sAB5(SAC7) 

SACIt .NE.O 


YETAI=YETA0I 


control PATH 9 


RWYHDG 


♦ CEXI TO# SPEC# CFO I #MP ILS-MPl LS0I#TPl=TPI02» TP2=TP202 #TP3=TP302#TPA=TP4 02#TP5=TP502 »TP6=TP602 *TP7=TP7O2*LOCFD=LOCFD03# LOCOC=LOCOC02»FL 
ARE=FLAR£02#START=START03#GSFD=GSF002 • .NQT.CFOI Nl .TMEFLG. NE .04 

LDA LOCDEV MPY Kl STA YETA LOA TK 

SUB 0EG2 #NOT# (SAC.LT.O > LOA YETA 

XRtSAC-UMLOC )X #NOT . { S AC.LT • 0 ) LOA GUID20 (SAC.EQ.O) 

• CEXI TO# SPEC.CFD4#MPILS=MPILS0 l#TPl=TPl 0 2 #TP2=TP20 2 # TP3=TP302 »TP4=TP40 2. TP5=TP502 . TP6 = TP602 . TP7=TP702 . LOCFO=LOCFD03 # LOCOCs UQC0C04 *FL 
ARE=FLARE02.START=STARr03 #YETA=YETA0l .PS IE=PSIEOl • GSFO=GSF00 2# .NOT .CFO INI . TMEFLG.NE . 0 ♦ 


SUB 

ABS 


STA 

SUB 


PSIE 

LIMLOC 


*• VERIFICATION CONDITIONS ♦♦ 


,cexiTo 

TP3=TP302 

LOCOC=LOCQC02 

SAC1=LDCDEV 

PSIE1 = SAC4 

SAC9=SAC8-LIML0C 

•IMPLIES. 

RtSACe-LIMLOC » 


SPEC 

TP4=TP402 
FLARE=FLARE02 
$MQl=MULTM( SAC I 
tAC5-AQS(IAC4> 
•NOT. ( SACg.LT.O ) 

CF04 


CFO 1 

TPS^=TP502 
START=START03 
KI ) IAC2=MULT«SACl#Kl ) 
SAC6=N< SAC5-0EG2) 
$ACl0=GUIO2O 

LOCOC=LOCOC04 


MPILS=MPILSOl 

TP6=TP602 

GSFD=GSFO02 

YETA1=SAC2 

•NOT.(SAC6.LT.O) 

SACIO.EQ.O 

YETAl=YETA01 


TPI=TP102 

TP7=TP702 

•NOT.CFOINI 

$AC3=TK 

SAC7=YETAl 


psieispsiEoi 


TP2=TP20 2 
L0CFD=L3CF333 
TMEFLG.NE.O 
SAC4=NISAC3- RWYHDG I 
SACa=A35CSAC7) 


— - CONTROL PATH 10 


•CEXITO. SPEC#CFOI#MP1LS=MPILSO l#TPl=TPI 02#TP2=TP202# TP3=TP302*TP4=TP402. TP5-TP502. TP6=TP60 2 .TP7=TP702.LOCFO-LOCF003 .L0C0C=L0C0C02»FL 
AR6=FL ARE0 2.START=ST ART 03 #GSFD=GSF002# .NOT.CFOINI .TMEFLG.NE.04 

LDA LOCOEV MPY Kl STA YETA LOA TK SUB RWYHDG STA 

ASS SUD 0EG2 .NOT* (4AC.LT.0 ) LOA YEtA ABS SUB 

XRCSAC-LlMLaOX (SAC.LT.O) LOA SET STA LOCOC 

• CEXI TO* SPEC.CFD4,MPILS=MPILS0I.TP1=TPI 0 2#TP2=rP202«TP3=TP302.TP4==TP402.TP5=TPS02.TP6=:TP602*TP7=TP702.LOCFO=LOCFD03.LOCOC=LOCOC04.FL 
ARE=FLAR£0 2#START=START0 3#Y6TA=^YHTA0 1 #PS1E=PSIE01 # GSFD=GSF002* •NOT.CFO I N1 # TMEFLG. NE »04 


PSIE 

LIMLOC 


♦ ♦ VF RIF ICATION CON.) IT IONS 






1 






CEXITO 

TP3STP302 

LaCdC=LOCQC02 

SACl^LOCDEV 

PSIE1=$AC4 

$AC9=SAC8-LIML0C 

•IMPLIES. 

ft( SACa-L IMLOC) 


SPEC 


CFO 1 


TP4=sTP402 
FLARE =FLARE 02 
SMQl=MULTM( SACl .K! I 
SACS=A0S(SAC4) 
JAC9.LT.0 


TP5=TP502 
START=3TART03 
SAC2=sMULT< SACI *KI > 
■6AC6=N($AC5-0EG2> 
$AC10=SET 


MPILSsiMPlLSOl 

TP6=TP-6.p2 

GSFO=GSFD02 

YETA1=$AC2 

•NOT*(^AC6*LT«0) 

LOCOCl=SAC10 


TPlsTPl 02 
TP7=TP702 
• NOT. CFO INI 
SAC3=T< 
$AC7=y£TAl 


TP2=TP20 2 
LOCF3=LOCF00 3 
TMEFLG.NE.O 
SAC4£N(S.AC3^R»YH0G } 
$AC8=ABS (SAC7) 


CFD4 


LQCOC I=LQCOC04 


YETAi=YETAO I 


PSIEl=PSIEOl 


CONTROL PATH II 


♦CFXITO.SPEC.CFOI •HPILS=MPILS0 I,TPl=TPl 02. TP2=TP202.TP3=TP302*TP4=TP402.TP5=TPS02 *TP6=TP602 .TP7=TP702 *LaCFD=LOCFl>03 .L0COCsL0C0C02*FL 
ARE=FLARE02t START=ST ART03 •GSFO-GSFD02. .NOT.CFOINI .TMEFLG.NE .0* 

LDA LOCOEV MPY K1 STA VETA LOA TK SUB RWYHDG STA PSIE 

ABS SUO 06G2 (SAC.LT.OI LOA SET STA LOCOC 

♦ CEXI TO, SPFC,CF04,MP ILS=MP1 L SO 1 • TPl ^ TP 1 02 • TP2=TP202 •TP3=TP302,TP4=TP402. TP5=TP502 . TP6=TP602 . TP7=TP702,LOCFb=LaCFD03 . L0C0C=L0C0C04 *FL 
ARE=FLARe02*START=STARr03,YETA=YETA0 I .PSIE^PSIEOI •GSFO=GSFD02.«N0T.CFDXNl .TMEFLC* NE .0 ♦ 


• ♦ VERIF ICATION CONDITIONS ♦♦ 


CEXITO 
TP3aTP302 
LOCOCSLQCOC02 
SACI =LOCOeV 
PSIE1 = 4AC4 


SPEC 

TP4=TP402 
FLARE=FLARE02 
>MQtsMULTM( SAC 1 ,K I ) 
SACSs Al3S($AC4) 


CFOl 

TP5=TP502 
START=START03 
SAC 2= MULTI SAC 1 • K I ) 
S ACGs^N ( S AC5*0£G2 ) 


MPILSsMPlLSOl 

TP6=TP602 

GSFD=GSFD02 

YETAI=SAC2 

SAC6*LT»0 


TP1=TPI02 

TP7«TP702 

•NOT.CFOINI 

SAC3=TK 

SAC7«SET 


TP2=TP202 

LOCF3»LOCF303 

TMEFLG.NE.i) 

SAC4sN( S AC3-RWYHOC> 
L0C0C1=SAC7 


• iMpL les • 

CF04 


LOCOCI=LOCOC04 


YETA1=YETA01 


psiEi=Psieoi 


CONTROL PATH 12 — - 


»CEXI TO. SPEC*CF04,MP IL SsMPI LSO 1 . TPl =TPI 02, TP 2*TP202 . TP3=TP302 •TP4=TP402.TPS=TP502 •TP6=TP602 »TP7=TP702 .LOCFO^LOCFOOS »LOCOC=LQCOC04,FL 
ARE^FLAREOP.STARTaSTARTOJ .YETA=YETAO I ,PS IE* PS IE 01 . GSF0=GSFO02, .NOT •CFO IN I . TMEFLG.NE.O* 

LDA LOS .NOT.ISAC.EQ.O) LOA LOCFD .NOT • C S AC .NE . 0 ) LOA SET STA LOCFD 

LOA ROLL STA PLFO 

♦ CEk 1T0.SPEC.CLANDFD,MPILS=MPILS0 I .TP I=TP102.TP2-TP202.TP3-=sTP302.TP4=TP40 2.TP5=TPS02. TP6=TP602.TP7=TP702.LOCFO=LOCF DOS .LOCOC=LOCOC04 

• FLARE=FLARE0 2. start =STAR r0 3 .RLFOsRLFOOa.YETA^YETAOl .PSIE=PS1E0I *GSFO=GSF0 02. .NOT. CFO INI .TMHFLG . NE, 0 . .N0T.CCRUZFD4 


44 VERIFICATION CONDITIONS 4* 


CEXITO 

TP3-TP302 

LQCOC=LOCOC04 

• NOT .CFO INI 
SAC3=SET 

• IMPLIES. 
CLANDFD 


SPEC 

TP4=Tp402 
FLARE =FLARE02 
TMEFLG.NE.O 
L0CF0i=SAC3 


CFO 4 

TP5=TPS02 
StART=START03 
SAC 1=LBS 
SAC4-ROLL 


MPILS-MPILSOI 
TP6=TP602 
YHTA=YETA0I 
•NOT.I SACl .EO.O ) 
RLF0l=SAC4 


TP1=TP102 
TP7-TP702 
PS I E=PS I EO I 
SAC2=L0CFD 


TP2SSTP20 2 
LDCF3==L0CF03 3 
GSFO=GSF002 

•NDT.CSACa.MF.O) 


LOCFD1=LOCFD05 


RLFOt=RLFO02 


•NOT.CCRUZFD 


— CONTROL PATH 13 


*CexlTO.SPEC.CF04.MPlLS=MPiLS01 .TPlsTPI 02.TP2=TP202.TP3=TP302.TP4=fTp402.TPS=TP502.Tp6=TP602.TP7=TP702.LOCFD=LOCF303.LDCOC=LOCOC04*FL 
AR6=:FLAHE02. START=START03.YETA=YETA0 1 .PSIE=PSIE01 . GSFO=6SFO02. .NOT .CFDINl . TMEFLG. NE. 04 
LDA L8S .NOT. tSAC.EQ.O) LDA LDCFO (SAC.NE.OI 

*CEXi TO. SPEC. CLANDFD .MP ILS=MPILSO I . TP l=TPl 0 2 . TP 2=TP202. TP3=TP302 • TP4=TP4 02. TP5=T^502. TP6=TP602.TP7=TP702. LOCFD=L3CFD05 .LOCOCsLOCOCOA 
.FLARE=FLARE0 2.START=START0 3.RLFO=RLFO0 2.YETA=yETA0l.PSie=:PSIE0I .GSF0=GSF002. .NDT.CFD INI .TMEFLG.NE.O. .N0T.CCRUZF04 


»4 VERIFICATION CONDITIONS 44 


CEXITO 
TP3=TP302 
LOCOC=LQCOC04 
•NOT .CFD INI 


SPEC 

TP4=TP402 

FLAHE=FLARE02 

TMEFLG.NE.O 


CF04 

TP5=TP502 

5TART=START03 

SACl^LBS 


MPILS=MPILSOl 

TP6=TP602 

VETA=YETA01 

•NOT.ISACI.EQ.OI 


TP |=TP102 
TP7=TP702 
PS I E=PS I EO 1 
$AC2=LOCFD 


TP2=TP20 2 
L0CF3=L3CF303 
GSFO=GSFD02 
SAC2.NE. 0 


• IMPLIES, 

n, ANi>f^n 


t fir t 'J 1 ( 






laftfliillirtflflfiiii fill 


i* 


♦» VERIFICATION CONDITIONS »* 


C6XIT0 
TP3=TP302 
LqC0C=LDCOC04 
.NOT. CFO INI 

.IMPLIES. 

CCROZFD 


SPEC 

TP4=TP402 

FLARE=FLAR602 

TMEFLG.NE.O 


START=START04 


CFD4 

TPS=TPS02 

START=START03 

SACl=LOS 


LOCFO=LQCF006 


MP!LS=MPILS01 

TP6=TP602 

YETA=YETA01 

SACl.EO.O 


YETA=YE IA02 


TP I=TP102 
TP7=TP702 
PSIE=PSIE01 
SAC2=L0CFD 


PS1E=PSIE02 


TP2=TP20 2 

L0CFD=L0CFD33 

CSFD=GSFO02 

.NOT. ISAC2.ME.0) 


.not. CFO *2 


• ♦ verification conditions ♦• 


cexiTo 

TP3=TP302 

LOCOC=LOCOC04 

.NOT.CFDINl 


SPEC 

TP4=TP402 
flare “FLARE02 
TMEFLG.NE.O 


. implies. 

CLANOFP LOCFD=LOCFD05 

CONTROL PATH 16 


CFD4 

TPS=TP502 

START=START03 

SAC1=LBS 


RLF0=RLF002 


MPILS=MPILSOI 
TP6=TP602 
YETA=YETAOI 
lACl .EQ.O 


.NOT.CCRUZFD 


TPI = TPI02 
TP7=TP702 
PSIEsPSIEOl 
IAC2=L0CFD 


TP2=TP20 2 
LOCFD=LOCF003 
GSFO=GSFD02 
SAC2.NE. 0 


CONTROL KAin lo _ nr-nr-»4 

LOA LOCOC .NQT.UAC.EQ.O) LOA YETA^^ *4^1 SAC. -LT . ABSI PERI 00, * »«V P^R.^ 

XABSt SACI.LT.ABSIPERIOPI* -In4/»Arl ITABSITAOII* ^ ‘ 

MPY KS SOS TP. OS’-"^ iU..AC..LT.ABS.PERIOD.. PERIOD 

MPY K6 MPY PSie MPY *°J,”‘*p°*?p*^*tp5=t®S02.TP6=TP602.TP7=TP70Z.L0CFO=L3CFD0S.L0:OC=LOCOC04 

tpLARE=F^RE02':s?AR?:rTiRTr3"RLFo';LFioi:YE?;=Y^AO..PS,E=^S.^ 


• ♦ VERIFICATION CONDITIONS ♦* 


CEXITO 
TP3»TP30 2 

LOCDC=LOCOC04 

GSrD=GSF002 

•AC2FYETA 

SAC6=MULT(»ACS.KS) 


SPEC 

TP4=TP402 
FLARE=FLAR£02 
.NOT. CFO INI 
*MQI=LIMY 
» AC7=N< SACS-TP 1 > 


CLANDFO 
TPS=TP302 
START = start 03 
TMfeFLG.NE.O 


MPILS=MP1LS01 

tP6=TP502 

RLFO=RLF002 

.NOT.CCRUZFD 


»AC9=MULT(*ACa.0ELTAT) 

SACI 3 = »ACI 2/PERIOD tMQ4=MULT.M(*ACl3.X61 

SACIS=MULT( SAC14.PSIEI 

»A01--:<»ACI6.»Maf.) SAQ2=*Aai424*2 

.IMPLIES. 

ABSU.AC3 J.LT.ABSI PERIOD) 

ABSITACl 2) .LT.ABSIPERIOD) 


»AC3=SRLMIt*AC2. »MQ1 > »AC4=*AC3/PER lOD 

»ACa=*AC7/TA01 1-SACll 

SAC10=*AC9/2**3 SAC11=N«SAC10FTPI» TPlI-SACll 

*AC14=M0LT(*ACI3.X6JI »MQS=MULTMI »ACI 4.PS IE) 
SMQ6=MULTM(*ACIS.K0AMPI 

*ACI7=ARISAQ2) SMQ7=MRl SAQ2) 


TP1=TP102 

TP7=TP702 

YETA=YETA01 

SACl=LOCOC 

»AC5=SAC4/PER100 


TP2=TP20 2 
LnCFD=LOCF30S 
PSIE=PSI EOl 

.NOT. ( SACI. HO. 0» 

SMD 2= HULTHt S ACS . XS I 


SACI2=GS 


ABSISAC4) .LT.ABSIPERIOD j 

DIB ( *A0I*2TT2» TP11=TP103 


SACl6=MULTISAClS.K0AMP) 

TP2I=*AC17 

ABS(SAC7).LT.A8SITAU1 ) 

TP2I=TP203 


♦CEHtT0*SPeC.CLANDFD,MPILS=Mt>ILS3l»rpl=TP102.TP2=tP202.TP3=TP302*TP4=5TP40 2»TP5=TO502.TP6=TP602.TP7=TP702#L0CF0=|L0C-D05»L0CaC5:L0C0C04 

*FLARE=FLARC02.START-STAMT03.RLFO=RLF002.YeTA-YETA01«pSI6=PSIEOI *GSF0=GSF002 . .NOT.CFDINI ,TMcFLG.NE.O» .NOT. CCRUZFD* 

LPA LOCOC (SAC.EO.O) LOA YETA XABS < SAC > .UT. ABS( PE RI OD ) X DIV PERIOO 

XAOS( SAC ).LT.ARS(PER 10D)% DlV PERIOD MPY K5 SUB TP I 

XABSt SAC >.LT.ABS(TAU 1 >X OIV TAUl «PY OELTAT SAR 3 ADS TPl 

LOA GS XADS(SAC).LT.A3S(PERiaO)X OIV PERIOD .MPY K6 MPY PSIE 

MPY KDAMP XDIR(SAQ42A*2 )X SUL 2 STA TP2 

SCEXI TO* SPEC#CLANOFD.MPILS=MPILSO I • TP I = TP 1 03 • TP 2=TP203 .TP3=TP302.TP4=TP4 02.TP5=TP502. TP6=TP602. TP7=TP702.LQCFO=L3Cr DOS .LOrOCaLOCOCOA 
.FLARE=FLARE02,START=ST ART03,RUFO=RLF002.YETA=YETA01 .PSiE=PSlE01 .GSFO=GSFD02. .NOT.CFD INI .t MEFLG .NE . 0. .NOT.CCRUZFO* 


♦♦VERIFICATION CONDITIONS ♦♦ 


CGXITO SPE 

TP3=TP302 TPA 

LOCnC^LOCOCOA FLA 

GSFD=GSFD02 .NQ 

sac2=yETa sac 

SAC7=SAC6/TAUl SMO 

SACIO=N< SAC9fTPI ) TPl 

SMQA = MULTMC SACl 3.PS IE) 

SAC I5 = MULT (SACM.KOAMP ) 

TP2I=SAC16 

.IMPLIES. 

ABS< SAC2 ).LT.A5S<P£RtOO) 
A05OAC1 II «LT.A8S( PERIOD) 


SPEC C 
TPA=TP402 T 
FLARCSFLARE02 S 
.NQT.CFDINI T 
SAC3=$AC2/PERI0D 1 
SM02=MUUTM< SAC7.0ELTAT ) 
TPll=SAClO $ 


CLANOFO 
TP5=TP502 
START=START03 
TMHFLO.NE.O 
4AC4=$AC3/PER lOO 


MPILS=MPILSOl 

TP6=TP602 

RLFO=RLFO02 

•NOT.CCRUZFD 

SMQ1=MULTM( SAC4.K5) 

SACas=MUUT(SAC7.DELTAT) 


$ACU=GS SAC12=SAC1 l/PERIOO 

SAC 14= multi SAC 13 .PSIE I 

SAQ 1 = C SACIS.SMQSI SA02=SA01S2A^2 


A0S(SAC3) .LT.ABS(PERIOD) 
0lR(SA0tS2«A2> TPl l=TP103 


TPl=TPI02 TP 

XP7=TP702 LO 

YETA=YETAOI PS 

SAClsLOCOC SA 

SAC5=MULT( SAC4.K5I SA 

> SA 

SM03=MUL TMISACI2.K6) SA 

SM05= MU l_TMt$AC14* KDAMP) 


TP2=TP20 2 

L0CF3=LDCFD35 

PS!E=PSIE01 

SACl.EQ.O 
SAC6=N(SACS-TPI ) 
SAC9=SACa/2»S3 
SAC13=MULT( SACI2.K6) 


SAC16=AR (SAQ2' 


SMQ6=HR( SA32) 


ABSf SAC6).LT.AD5(TAU1 ) 
TP2I=TP203 


CONTROL PATH 18 — 


• CexlTO. SPeC.CLANDFD.MPlLS=MPILSO I . TP I *TP1 03 • TP 2= TP203. TP3=TP302 .TP4=TP40 2.TP5*T»502* TP6*TP602. TP7=TP702»LOCFO=UOCr 005 .LOCDCsLOCOCOA 

.FLARE?=FLARe02.STARr=SrART03.RLFO=RLFO0 2tYeTA=YETA0l .PSie=PSIEOl .GSFO=GSFD02* .NOT.CFD INI .T MEFLG . NE • 0« .NOT.CCRUZFOS 

UDA HRAO SUa KIOOO XR < S AC-Kl 000) X .NOT . < SAC .GE . 0 ) LDA TP2 SUB TP7 

STA TP2 MPY 3EUTAT X ABS( SAC) .UT. A0S ( TAU2 )X OIV TA02 SAR 6 

AOS TP7 

♦CEXITO. SPEC.CF06#MPILS=MPIUSOI .TplsTPl 03, TP2=TP205 .TP3=Tp302.TP4=Tp402. TP5=TP502 * TP6=TP602 . TP7=TP704 , LOCFO=LOCF305 . LOCOC=LQCOC04.FL 
ARE=FLARE02,START*START03,RLFD=RLF00 2,YETA=YETAOI .PSIE=PSieOl .G5FO=GSF002. .NOT.CFD IN I .TMEFLG.NE. 0, .NOT.CCRUZFOS 


♦♦ VERIFICATION CONDITIONS •♦ 


Y . ■ 

jWx 1 

I 

r-h ; 


CEXITO S 
TP3=TP302 7 
LOCOC=LaCOC04 F 
GSFD=GSF002 

.not. ( SAC2.G6 .0 ) 1 
SACS=MULT( SAC4 , OELTAT) 


SPEC 

TP4=TP402 

FLARE^FLAREOa 

•NQT.CFDINI 

SAC3=rp2 


CLANDFO 

TP5=TP502 

STARr=START03 

rMEFLG.NE.O 

SAC4=N(SAC3-TP7) 

SAC G=SACS/TAU2 


MPILS=MPILS01 

TP6=rP602 

RLFD^RLFOOZ 

•NOT.CCRUZFD 

TP2l=SAC4 

SAC7=SAC6/2SA6 


TP l=TPl 03 
TP7=TP702 
yeta=yetaoi 

SACI-HRAO 


TP2=TP20 3 
UOCF3=LOCFD05 
P5IE=PSIE01 
SAC2=SAC1-<ID00 


SMO l=MULTMtSAC4.DELTAT ) 


SAC8=NC SAC74TP7) 


TP7|=SACa 


.IMPLIES. 

RISACI-KIOOQ) 


AOS ( SACS ).LT.ABS(TAU2) 


TP21=TP205 


TP71=TPr 04 


CONTROL PATH 19 

♦CEXI TO. SPEC, CLANDFO .MPILS=MPI LSO 1 rTPI=Tp| 03.TP 2=TP20 3. TP3=TP302.TP4=TP40 2. TP5=TPS02. TP6-TP602. TP7=TP702.LOCFD=LOC- DOS .UOCOC=UOCOC04 
• FLARE=FUARE02,STARr=START0 3,RLFO=RLFD02.YETA=YETAO I ,PS I E=PS1 EOl .GSFO=GSFO02. .NOT^CFO INI .TMEFLG. NE.O. .NOT.CCRUZFD* 

LDA HRAO SUfl KIOOO XR < S AC-K ! OOO ) X (SAC.GE.O) 

•CEXltO, SPeC,CFD6 .MPILS=MPIL501.TPI=TP103^TP 2=TP20 S. TP3=TP302 *TP4=TP402.TPS=TPS02 . TP6=TP602. TP7=TR704 .LOCFO=LOCF305 .LOCOC =LOCOC04 .FU 
ARE=FLARE02 •SrARTiSTART03,RLFO=RLFD02. YETA=YETA01 . PS! E=PSIE0 I .GSFO=GSFD02..NOTVCFD IN I .TMEFLG. NE.O. .NOT.CCRUZFD ♦ 


♦• VERIFICATION CONDITIONS *♦ 


CEXITO 

TP3=i:TP302 

LOCOC=LOCOC04 

GSrDs^GSFOO? 

SAC?*(ir.C 

, j H ..U. <; . « • 


SPEC 

TP4=TP402 
FLARE=FLARE02 
• NOT. CFO INI 


CLANOFO 

TPS=TPS02 

START==START03 

tmcflg.ne.o 


MPILS=MP1LS0I 

TP6=TP602 

RLFO=RLFD02 

•NOT.CCRUZFD 


TP 1=TP103 
TP7s=TP702 
YETA=YETA01 
SAC!=HRAO 


TP2=TP20 3 
L0CF3=L0CF305 
PSI6=PSI EOl 
SAC2=SAC l-< I 000 




; " rt=nf, ' ■ TP2=TP20S TP7-TP704 

R(»ACl-K1000» CFD6 


LDA TP2 
CMA 

LDA LOCSTR 
.NOT* < SAC*LT*0 > 


SUD 

STA 

MPV 

STZ 


TP I 

LOCSTR 

psie 

CAPT 


LDQ LIM180 TRA SRLMT 

lOA VETA MPV PSTE 

.NOT.(*AC.l-T.O> LDA PSIE 

LDA AO SUB RLFD 

DIV TAU3 LDQ DEGA 

LDQ DEG2S 7RA SRLMT 


XR( SAC*2**3»* 
.NOT. (»AC.EQ.O) 
ABS 

BAR 2 
THA SRLMT 
STA RCMD 


SAL 3 
.Nar.HAC.GE.OI 

SUB DEG20 


MPY 


OELTAT 


:*• VERIFICATION CONDITIONS 


CEXITO 
TP3=TP30 2 
LOCOC=LOCOCOA 
GSFD^SSFOOE 

»HOI=LIMI80 
, S MQ2= MULTM < S AC6 . PS I E > 

»AC9=MULT<»ACB.PSIE) 

CAPT HO 

»ACI7 = SRLMTt*AC|6.SMQ4 
* ACl ?=N< *AC 1 B+RLF O ) 
RCMtll=»AC2i: 

.implies. ' 
r<saC3*2*»3> 

TPI=TP10 4 
captifcaptoa 

— CONTROL PATH 21 


SPEC 

TR4=TPA02 

flare=flare 62 

.not.cfdtni 

tAC3aSRLMT( IAC2,*M0I) 
SAC7=MULT( SAC& »PS IE* 
.NOT.{TAC9.Lt.O) 
*ACI3=A0 

RLFDI=SACi9 


CFD6 

TPS=TP502 
START=START03 
TMEFLG.NE.O 
*AC4SSAC3*2»»3 
.NOT. I SAC7.EQ.0I 
SACtO=PSIE 
SAC 14=N (*AC13-RLFD> 

SVa5=MULTM( SACI7.DEUTAT> 
IAC20=N<XACI 9-ROLL) SMQ6=0eG2S 


MPILS=MPILSOl 

TP6=TP602 

RLFO=RLFO02 

.NOT.CCRUZFD 

SAC5=-XAC4 

.N0T.(SAC7.GE.0) 

SACII=ABSISAC10) 

SAC1S=SACIA/2»*2 


TPI=TP103 
TP7=TP70A 
YETA=TETAOI 
SAC1=TP2 
LOCSTRHSACS 
SACB=LQCSTRl 
SACl2=Nt SAC1I-OEG20 ) 
SACI6=SACl 5/TAU3 
SACia=MULT(SACl7,0ELtAT) 
SAC2l=SRLHTI»AC20.SMQ6> 


TP2=TP20 5 
LOCFO =L0 CFDO 5 
PSIE=PSI EOl 

SAC2=N(S ACl-TPl ) 

SAC6=YETA 

SMQ3sMULTMISAC8.PS IE) 

.not. ISACl2.Lt.O) 
SMQ4=DEG* 


AHS(SACIS) .LT.AOSI TAU3) 
TP2s=TP2D6 
RLFD1=RLFD04 


TP7=TP705 

RCMDlsRCMDOl 


CFDII 

YETA=YETA02 


START=START04 

pStE=PSIE02 


L0CF3=L0CFD96 
L0CSTRl = L0CSTR02 


LOCSTR tOA YETA MPY 


LDA 

CMA 


TP 2 


STA 

MPY 


PSIE 


•NOT.(SAC.LT.O) 


LDA PSIE 


AOS 


SUB 


0EG2C 


rjF^$;T;;SPFC.CFD7.MPILS=MP.LSOl.TP.=TP.03.TP2=TP20S.T^ 

AREsPLARE02.START=START03.RLFO=RLFD02.YETA-YeTAOl.PSIk psicu*. 

••VERIFICATION CONDITIONS •• 


SPEC 

TP4=TP402 

FLARe=FLARC02 

.NOT.CFD INI 


CFD6 

TP5=rPS02 
START=START03 
TMEFLG.NE.O 


CEXITO 
TP3=TP302 
l0COC=LOC0C04 

SMOHLHHO iA«=SRLMT(' SAC2.SM0I ) SAC4=SAC3»2*.3 

SMQ2=MUuImHAC6.PSIE) SAC7=MULT(SAC6.PSIE) .NOT.HAC7.EO.O) 
SAC9=JMULT(SAC8.PSIE) .NOT . I *AC9 .LT . 0 ) 


SACI0=PSIE 


mpils=mpilsoi 

TP6=TP602 

RLFD=RLF002 

.NOT.CCRUZFD 

SAC5=-SAC4 

.NOT.I SAC7.GE.0 1 

SACIHABSISACIO) 


TPI=TPI0 3 

TP7=TP704 

YETA=YETA01 

SACI=TP2 

LOCSTRHSACS 

SACa=LOCSTRl 

jAC12=N( SACI 1 -DEG20 ) 


TP2=TP20S 
LOCFD=LOCFOOS 
PSIE=PSI EOI 
SAC2=N< SACI-TPl ) 
SAC6=YET A 

SMa3=MU_TM( SACS. PSIE) 
SACI2.LT .0 


. iMPL it:s. 

H ( SAC3*2*»3) 


CFD7 


CDCSTRI-LOCSTRO I 


ARE=FLAHEa2,START=START03.RLFD-RLF002. E , x^lBO TRA SRLMT XR t SAC*2S*3 ) X SAL 3 

LDA TP2 SUB TPl . LOO LTMl ^ ^ . Na T . ( SAC.EQ . 0) .NOT. I » AC. GE . 0 ) 

STA LOCSTR LDA YtIA 

LDA LOCSTR WT PSIE tSAC.LT.O) 

• CFXI T0;SPT C. rFP7 . MR U S- MPl . no , , TPl ■ TP H U fr- 


X *»•>«*»’ 


, T P ^ “ T P ' 4 ^ ' 


VERIFICATION CONDITIONS ** 


cexiTo 


SPEC 


TP4-TP402 
FLARE=FLARE02 
.NUT.CFOINl 
SAC3=SRLMT( SAC2*SF,0I ) 


TP3=TP;502 
LOCOC=LOCOC04 
r.5F0=GSF00 2 
*MQl=LIM180 
SM02=MULTM(SAC6*PSIE) SAC7=MULT( S AC6 .PS IE) 
SAC9=MULTC*AC8.PSIE) SAC9.LT.0 
•IMPLIES. 

R<SAC3*2*43) 


CFO 6 

TP5=TP502 
START=START03 
TMEFLG-NE-0 
SAC4=SAC3*2*4i3 
•NOT. ( SAC7.EQ.0) 


MPXUS=MPlLSOI 

TP6=TP602 

RLFO=RLFD02 

•not.ccruzfo 

SAC5=-SAC4 
• NQt« C SAC7* GE *0 ) 


TP1=TP103 

TP7=TP704 

YETA=YETAOI 

SACI-TP2 

LOCSTRI-SACS 

*AC3=L0CSTR1 


TP2=TP20 5 
LOCF3=LOCFDOS 
PSIE=PSIEOl 
SAC2=N(SACI-TP1 ) 
SAC6=YETA 

SV|33=MU.TMC »AC8»PSt£l 


CF07 


LQCSTRl=LOC STROl 


CONTROL path 23 

♦CexlTO.SPeC.CFD6.MPILS=MPILSOl.Tpi=TPlb3.TP2=TP205.TP3=TP302,TP4=TP40Z.TPS=TP502.TP6^TP602.rP7=TP704*LOCFO=LO^D05.LOCqC=LOCOC04,FL 

AR{S=FLARE02.START=START03.RLFD=RLF00 2.YETA=YETAOI .PSIE=PSIE01 ,GSiFO=GSFO02# .NOT.CFOlNl .TMEFLG .NE • 0. •NOT.CCRUZFO* 

LOA TP2 SUB Tpl LDO LIM180 

YETA 


TRA 

MPY 


SRLMT 

PSIE 


XR(SAC*24*3)« 

• NOT. (SAC.EQ.-O)- 


SAL 3 
(SAC.GE.O) 


♦CEXITO .SPeC.CFO7.MP?LS=MPILS0i?TPl=TPI03?TP2sTP20S.TP3=TP302.TP4=TP402.TP5=TPS02.TP6=TP602.TP7=TP70A,L0CFD=LOCFD05.LoCOC=L0C0CO4,FL 

ARE=FLARE02 .ST ART^sSTART 03.RLFO=RLFO0 2. YETA- YETAOI *PSIE=PSIE01 ♦6SFO=GSFO02. .NO’T.CFDINl .TMEFLG.NE .0. LOCSTRi=LOCSTRO I . .NOT •CCRJZF04 


VERIFICATION conditions ♦♦ 


CEXITO 

TP3=TP302 

LOCOC=LOCOC04 

GSFD^:GSFD02 

4MQI~LIMl80 

SMQ2=MULTM(SAC6.PS1E ) 

• i.MPuies. 

R(»AC3*2*43) 


SPEC 

TP4=TP4p2 
flare-flare 02 
•NOT.CFDINl 
tAC3=SRLMT( SAC2.SM01) 
SAC7=MULT{ SAC6 .PSI E) 


CFD6 

TP5=TP502 
START=START03 
TMEFLG. NE.O 
jAC4=SAC3424^3 
•not. (SAC7.EQ .0 ) 


MPILS=MPH-S01 

TP6=TP602 

RLFD=RLF002 

•N0T.CCRU2F0 

*AC5=-5 AC4 

SAC7.GE.0 


TP 1=TP103 

TP7=TP704 

YETA=YETA01 

SAC1=TP2 

LOCSTRI-SACS 


TP2=TP20 5 
L0CFD=L3CF305 
PSIE=PSIE01 
SACZ=NCSACl-TPl ) 
$AC6=Y£TA ^ / 


CFD7 


LQCSTRl=LOCSTROt 


control path 24 


♦CEXlT0.SPeC.CFD6.MpILS^MPlLS01 ,Tpl =TP 1 03. tP2=TP205 .TP3=TP302 .TP4=TP402*T P5=TP502 . TP6=TP602.TP7-TP704 .LOCFO^LOO^pOS .LOCOC=LOCOC04 .FL 

ARE5sFLAR 602.START=START03.RLFO=RLFD02.YETA=YETA01 .PSIE=PSIE0l.GSFp=GSFD02. .NOT.CFDINl .TMEFLG .NE • O. .NQT.CCRUZFO* 

XR(SACA24*3)X SAL 3 

(SAC.EQ.O) LDA LOCSTR 

SUB 0EG20 .NOT.(XAC.LT.O) 

XA8SCSAC) .LT.ABS(TAU3)X 
AOS RLFO SUB ROLL 


LDA 

TP 2 

SUB 

TPI 

LOG 

LIMiaO 

TRA 

SRLMT 

CMA 


STA 

LOCSTR ■ 

LDA 

yeta 

MPY 

PSIE 

MPY 

PSlE 

• NOT. 

(SAC.LT.O) 

LDA 

PSIE 

abs 


sT.r 

CAPT 

LDA 

AO 

SUB 

rlFd 

SAR 

Z 

r ■ 

TAU3 

LDO 

0EG4 

TRA 

SRLMT 

MPY ' 

DEL TAT 

LOO 

0EG25 

TRA 

SRLMT 

STA 

RCMO 




♦ CEXI rO.SPECCFOll .SrART=SrART04.LOCFD=LaCFD06.GSFD=GSFD02»MPXLS=JMPILS0l*TPIsTP10 4.TP2=TPZOb, i = 

.TP7=rf>7 05.FLARE-FLARE0 2.L0COC=LOCOCO4.YeTA=yETA02*PSie=PSlE02.!LqeStR=LOCSTRb2.CAPT=CAPT04 •RLFO-RLFO04.RCM0 =R-wMD0 !• 


♦ • veRiFiCATtoN conditions *» 


CEXITO 
TP3=TP302 
UQC0C=LQCQC04 
GSFO=G5FO02 
SMQI=LIM180 
SMQ?=MULTM< SAC6 .PSIE ) 
•NOT. (SACO. LT .0 ) 
SACI3-A0 

SACI7=sSRLMT(SACI 6.SMQ4 
SAC19 = N!: SACI 8*-RLFO ) 
RCMDls^SACZl 
• IMPLIES. 

R( SAC3^24*3) 

TPlJsrPl04 
CAPTli=CAPT04 


SPEC 

TP4=TP402 
FLARE=FLARE02 
.NOT.CFDINl 
SAC3=SRLMTt *AC2 .SM 
S AC7=N UL T IS AC6 . P$ I 
SAC10=PSIE 
SAC14=NI SACIS-RLFD 
) 

RLFtH~SACl9 


Cl) 

E) 


CF06 

TPS=TPS02 
START=sSTART 0 3 
TMEFLG. NE.O 
SAC4t=$AC3*2«^3 
SACT’.EQ.O 
S AC 1 1= ABS t SAC 1 0 ) 

SACiS=SAC14/24»2 
S MO S-ssMULTM ( S A Cl 7 • DELTAT ) 
»AC20=N(SAC19-ROLL) SMa6=50£G2S 


MPILSs=MPILSOl 

TP6=TP602 

RLFD=RLFD02 

•not.ccruzfd 
SACS=-SAC 4 
SAC0=LOCSTRI 
SAC12=N($ACII-DEG20 ) 
SACl6=:SACiS7TAJ3 


TP 1=TPI 03 
TPT=TP704 
YETA=YETA0 I 
SAC1-TP2 
LOGSTRl^SACS 
IMG 3=MUL TM I SACS. PS I E ) 
.NOT. lSACl2.LT.0j 
SM04-=OEG4 

SACIS=:MULT(SAC17.0ELTAT) 
SAC2I=SRLMT(SAC20*SMQ6 j 


TP2=TP20 5 
LOCF3=!LOCFD05 
PsiE=Psieoi 
SAC2=N(SACI-TP1 I 
SAC6=YETA 

SAC9=MUL T(SAC8*PSIE> 
CAPTI=0 


ABSISAC IS) .Lt . AOS ( 

TP2=TP206 

RLFOI^RLFDOA 


TAU3) 

TP7=TP70S 

RCMDi^RCMOOl 


CFO 1 1 

YETA=yeTA02 


START=START04 

PSIE=PSIED2 


LOCFO=LOCF306 

LOCSTRI=LOCSTR02 


< U nATM 


-■•v ...n 




iio£Li. 







VERIFICATION CONDITIONS *♦ 


cexiTo 

1P3=TP30 2 

l_QCOC=LOCUC04 

C.SF0=GSFD02 

*M01^LIM180 
SMn2=?MUUTM( »AC6*PSIE ) 
•not. ( SAC9.LT .0 ) 

. IMPLIES - 

R(SAC3^2A*3) 


SPEC 

TPA=:TP402 
FLARE=FLARE02 
•MOT^CFDXNl 
SAC3=SRLMT( SAC2.SM01 ) 
SAC7-MULT(*AC6 .PS IE) 
SAC10-=PSIC 


CFD6 

TPS=TP502 

START=START03 

tmeflg.ne.o 

IACA=$AC3*2^*3 

SAC7.6O.0 

4ACll=A0S(*ACl0l 


mpils=mpilsoi 

tp6==TP602 

RLFD=RLFD02 

.NDT.CCRU2F0 

a:AG5=-»ACA 

SAC8=L0CStRl 

SACI2=Nt»ACll-OEG20 j 


TP1=TP103 

TP7=TP704 

YETA=VETAOl 

SACI=TP2 

L0CSTR1=*AC5 

SHQ3=MULTMI »AC9.PSiei 

SAC12-LT.0 


TP2=TP205 
|_OCFD=LOCF335 
PSIE=PS! EOl 
*AC2=NIS ACl-TPl I 
SAC6=YETA 

»AC9=MU-T(»AC8*PSIE> 


CFD7 


LOCSTRl=LOCSTROl 


— CONTROL PATH 26 ei 


•« verificatios cdnditidns »» 


CEXITO 

TR3=TP00n 

LOCaCsLO COCOA 

GSFO=GSFOOZ 

SMOl^ElMieO 

»MQ32 HULTMl I AC6 «PS IE I 

SACO.LT.O 

iiMPureS- 

R(*AC3*e**3> 


SPEC 

TP4=TPA0S 
FLARe=Fl_AREOa 
iNDT.CFOINl 
SAC3=SRLMT<SACa.*MGi » SACAp SAC3*2** 3 
SAC7=MULT{SAC6.PS1E) »AC7»EQ.0 


CFD6 

TPS=TPS02 

START=STAHT03 

tmeflg.ne.o 


MPILS=HPIUS01 

TP6=TP602 

RLF0=RLFD02 

•NOT.CCRUZFO 

*AC5=-SACA, 

SAca^LOCSTR 1 


TP1=TP103 

TP7=TP70A 

YETA=YETA0V 

*AC1=TP2 

LOCSTRl=tACS 

SMQ3=MUL TMISAC8.PS IE) 


TP2=TP20S 

LOCF3=LOCF30S 

psiE=psieoi 

SAC2=N(SACI-TP1 » 
SAC5=YETA 

SAC9=HUUTC*AC8.PSIE1 


CFO 7 

CDNTRQU PATH 27 — 


UCC STR 1=LOCSTRO 1 


Q' 





• CEXITO. SP6G.CF07.MP.LS=MPILS0,.TP.=TPT03.TP2=TP20S,TP3=TP302.TPA=TPA02.T« 

ARE=FLARE02>STAflTPSTA«T03*RLFO=RLFDq2.YETA „ ..goo XR ( t AC-A1200 > * .NOT. « SAC.LT. 0) 


LOA SET STA 
LDA LOCSTR loo 
XAOS( *AC ) .LT .A0S(TAU3)X 
AOS RLFO SUB 


CAPT 

0EG2S 


UDA 

hrao 

SUB 

A1200 

TRA 

SRLMT : 

SUB 

rlfp 

01 V 

T AU 3 

LDQ 

□EGA 

LDO 

0EG2S 

TRA 

SRLMT 


XR(tAC-A1200>X 

SAR 2 
TRA SRLMT 
STA RCMO 


OELTAT 


Aof RLPr ‘ SUB roll loo 0EG25 I?,V TP 1-TP 104 .TP2=TP20 5. TP3=TP302. TP4=TPA 02. TPS=TPS02 .TP6=TP602 

:«XrTotsPEC,CFOM.START=START04.LDCFO=LOCF006.GSFO=GSF002.MP.L^ 


:fp5:;^;^^!F:rREi;:rR^r2:L^jrc=Locofo°4:vrA=TE^^ 

• * VErtlFICATION conditions •• 




SPF.C 

TP4=TP*02 
FLAREpFLARE02 
.NOT.CFOINI 
SAC2=HRAD 

XACSpSHLMTI iACA.SMOl ) *AC6=N ( ® ACS-RLFO t 
» M03P MUL TM I > AC9 . O ElT AT ) 

TAC12=N( *AC1 I-ROLLi *M0A=0FG25 

;::^cK’i2pf. .,r.<FAcr,.,T.AP-,iTA.n. 


CEXITO 

TP3=TP302 

LC)CnC=LOCQC04 

GSFO=GSFO02 
CAPT1-»ACI 


CFO 7 

TPS=TPS02 
STARTPSTART03 

tmeflg.ne.o 

lAC3=»AC2-At2Q0 

IAC7s*AC 6/2**2 
S AC I0=MUUT e XACO.DEUr AT > 
XAC13=SBLMrl*AC:i2.»M04> 


MP1LS=MP1US01 

TP6=TP602 

RLFD=RLFO02 

LOCSTRPUOCSTROl 

.NOT.«*AC3.LT.O» 

iAC8P»AC7/TAU3 


TPI=TP103 
TP7=TP7 04 
YETA=YETA0 I 
.NOT.CCRUZFO 
SACA=LDCSTR 
SMQ2=0EG4 

SAC I 1 =N I SAC 1 0 ♦ RLFO I 
RCMD1=SAC13 


TP2=TP20S 

LDCFO=LOCFOOS 

PSTE=PSIE01 

SAC1=SET 

SMQl=0EG2S 

SAC9=SR-MTt SACa.SMOZI 
RLFDI=SAC1I 


















'isSsKs;;sisiiE:;:;iKS”;:K^ 

.♦ VERIFICATION CONDITIONS •» . • tp1=TPI03 TP2=TP20S 


, . I 4i . 1 ■ * t- ^ -■■ 
SRI IAC»20«3)X 
( sAC.eo.o) 

SUO DEG20 


, .1. vl .-.l -■J-'l '’*■ 
SAL 3 

l_OA LDCSTR 

(SAC.LT.OI 


cexiTQ 

TP3=TP302 

LOCnC=UOCOCOA 

r.SFp=GSF00 2 
SMQI-LIMISO 


SPEC 

TPA=TP»02 
FLARE=FLARE02 
.NOT. CFO IN I 
SAC3=SRLMTI SAC2 .SMCI ) 


CFD6 

TPS=TP5C2 

START=START03 

TMEFLG.NE.O 

SAC4=SAC3*2**3 

*AC7.EO.O 

SAC1I=ABS( *AC10)' 

LOC5TRl=COCSTROt 


MPIUS=MPILS01 

TP6-TPG02 

nUFO=RCFD02 

.not.ccruzfd 

»AC5=-SAC4 

5AC8=L0CSTRI 

iACl2=Nt tACll-0EG2(? I 


TPI=TP103 

TP7=TP704 

YETA=VETA01 

»ACI=TP2 

L0CSTH1=»AC5 


TP2=TP20 S 

LOCFO=UOCF')35 

PSIE=PSIE01 

*AC2=N(»ACI-TPi » 
SAC6=VETA 


L0CSTR1=^ Tft4r« 
SMQ3=M0LTM(»AC8.PS1E) »AC9=NJ-TltAC8,PSIEI 

IAC12.LT .0 


tX=«urTN(»AC6.PSIE) «C7=MULT(SAC6,PSIE. 1 0 ) ,ACli=N t » AC 1 1-DEG20) SAC12.LT.0 

.NDT.ISAC9.LT.0) SACIO=PSIE 

.implies. LOC5TRl=LOCSTHOi 

rtl*AC3*2*»3j CF07 

CONTROL PATH 26 tpa=TP60 2 .TP7=TP704 .LOCFD=LOCFD05 .LOCOC=LOCOCO* .FL 


** vERtFiCATlON CONOITIONS ♦* 


CFXITO SPEC g 2 TP6=TP0U2 --t»-VPTAOI PSIE=PSIE01 

:^s-2s?oco4 ^::re::^areo2 

^rarLfMraO ;rC3irRLiTISAC2.*HCU rACr=:OCS:RI .N03-NOLTM.»AC3.PS.E, .AC9-HULT..ACS.PSIE, 

^MollMUrTMITACe.PSIEI SAC7 p NUL f I . AC6 . PS I E) SAC7.EQ.0 

SAC9.lt. 0 

.implies. LOCSTRt=LOCSTR01 

RISAC3»2»»3) <^e07 

— CONTROL PATH 27 xopnP tP7=TP704 .LOCFD=LOCFD05.LOCQCpLOCOCP*.FL 


MPILS=MPILS01 

TP6=TP602 

RLFO=RLFD02 

.not.ccruzfo 
SACS=-»AC4, 
SAC8=L0CSTR 1 


TP 1=TP103 
TP7=TP704 
YETA=YETA0I 

SAC1=TP2 

UOCSTRl=SACS 


TP2=TP?0 5 
LOCFO=LOCF005 

psiE=psi eoi 

SAC2=NISACI-TP» » 
SAC6=rET A 


^MQSpMOLTMISACS.PSIE) SAC9=MULTtSAC8.PSIE) 


LOC STR t=LOCSTRO I 


»* VERIFICATION CONDITIONS 


CEKITO 

TP3=TP302 

L0C0C-LDCOCQ4 

GSFD=GSFD02 

CAPT1=*AC1 


SPEC 

TP4=TP402 

FLARE-FLARE02 

.NOT.CFDINI 

SAC2=HRAD 


SACSpSRLMTCSACA.SMQI ) SAC6=N<SAC5 RLFOI 
SM03=MULTM<SAC9.DELTAT> 

SACI2=N(SACI1-R0LL) 1MQ4=0EG25 


CFO 7 

TP5=TPS02 
STARTPSTART03 
TMEFLG.NE.O 
* AC3=*AC2-a12 00 
SAC7=*AC6/2*42 


SACI0=MULT(SAC9.DELTAT> 
SAC 13=SRLHT I SACl 2 . *M04 I 


MPILS=MPILS01 

TP6=TP602 

RLFO=RLFD02 

LOCSTR=LOCSTROl 

.NOT.(sAC3.LT.O> 

SAC8=»AC7/TAU3 


TPI=TPI04 


TP7=TP70S 


CFO I I 

VETA=YETA02 


TPI = TP103 
fp7=rp704 
YETA=YETAOI 

.not.ccruzfo 

SAC4=LOGSTR 

SMQ2=0EG4 

SACll=N(»ACIO»RLFD) 

WCMDI=*AC13 

STAHT=START04 
PSIE=PSIE02 


TP2PTP20S 

LOCFO=LOCF30S 

PSIE=PSlEOl 

SACl=SET 

SMQl=DEG2S 

SAC9=SR_MTI S ACa . SMQ2) 
RLFD1=SAC11 


L0CFD=L0CFD3 5 
LOCST R=LOCSTR02 


r ORIGINAL PAGE IS 
OP POOR QUALP Y 


C*PT1=CAPT0» 

^AB5( *AC )»LT .A6S(TAU3)X 


LDA LOCSTR LDQ OIV TAU3 cd, mt STA RCMO a 02. TP5=TP53a* TP6=TP602 

X ABS( *AC ) •LT wABSC T AU3 ) X ino 0EG25 TRA S Tt»i O 4 •TJ*2=TP206*TP3“TP302» TP4 P 


*• VErtlFICATION CONDITIONS •» 


CEAITO 
TP3=TP302 

LQC0C=LaC0C04 
GSFD=GSFD0 2 
CAPTA=*AC1 

SACS=SPl-HTt *AC4 ,»NQl > 


SPEC 

TP*=TP402 

FLARE=FUARE02 

.not.cfdini 

SAC2=HKA0 

*AC6=NUACS-RLF0) 


CFD7 

TP5=TPS02 

STAPT=START03 

TMFFI.G.NE.0 

SAC3=SAC2-A1200 

JAC7=*AC6/2**2 


tMQ3=HUl-TN«»ACD.DELTAT) 

SAC12=N( »ACl l-ROUL) S«Q4=aeG25 
. I WPL ! 5S • 
r(*AC 2-A l200 ) 

TP1=TPI04 
CAPTI=CAPT0* 


*AC10=MUt-Tt*AC9.DEUTATl 

$AC13=SpLMT(*AC12.SMQ4» 


MPILS=MPII-S01 

TP6=TP602 

RLFO=RLF002 

LOCSTR=UOCSTROl 

SAC3.1-T.0 

»AC8=*AC77TAU3 


ABS(»AC7).LT.ASS(TAU3) 

RUFoI=R°FD04 BC«DI=RCHP0J 


CFO 1 1 

YETA='TETAQ2 


TP l=TPt 03 
TP7=TP704 
VETA=TETA01 

.NOT.CCRUZFO 

SAC4=1_QGSTP 

*MQ2=DEG4 

SA C I l=N ( »ACI O+Rt-FO » 

RCHOl=*ACl3 

START=START04 

PSIE=PSIE02 


TP2=TP20 5 
LQCF3=1-OCF30S 
PSIE=PS1E01 
»AC1 = SET 

SMal=OEG*S 

SAC9=SRL MTt * AC9 • »MOZ I 

HLF01=SAClt 

|_OCFO=UOCFD06 
UQCST R=l, OCST H02 


control path 29 — «plLS=MPn-S0l.TPl=TPl02.TP2=TP202.TP3=TP302.TP*=TP402.TP5=TP302.TP6=TP6 


LDA GUID2D 

♦.false.* 


♦» verification conditions *» 


CEXITO 

MPIUSaMPlLSOI 

TP6=TP602 

TMEFLG.NE.O 

. IRPL lES . 
.false. 


SPEC 

TP1=TP1 02 
TP7=TP7o2 
.NQT.CFD42 


CCRUZFO 
TP2=TP202 
LOCDC=LOCQCQ4 
tACl = GUID2D 


START=START04 
TP3=TP302 
FLARe=FLARE02 
^NOT.C *ACI»NE*0) 


locfo=lqcfoo6 
TP4=TP402 
YETA=TETA0 2 
RCMWLOl=0 


gsfd= gsfooz 

TPS=TPS0 2 
PS1E=PSI E02 
PCMVLDI = 0 


__ CONTROL path 30 p,,s=MPILS0 I . TP1=TP 1 02. TP2=TP202.TP3=TP302 .TP4-TP402. TPS TP502. P 

B s'i' 


44 


VERIFICATION CONDITIONS *♦ 


CEAITO 

MP1LS=MPILS01 
TP<!=TP602 
TMFFLG .NE.O 


SPEC 

TP1=TP|02 

Tp7=tP702 

.N0T.CFD42 


iAC3=SRLMTt»AC2.*H0l) ¥AC4=N(SAC3 RLFO) 
SMQ3=MULTHCSAC7.DELTATI 


CCRUZFD 

TP2=TP202. 

UOCOC=LOCtiC04 

SACI=GUIDZD 

SACS=»AC4/2**2 


♦ AGO— G - — 

*ACO=MULTISAC7.0ELTATJ 

-C.P1 MT < SACI O. IHBA > 


START=START04 

TP3=TP302 
FLARE=FLARE02 
SACI.NE.O 
SAC6= * ACS FT AU3 


LOCFO=UOCFO06 

TP4=TP402 

YETA=YETA02 

*AC2=LATSTR 

*M02=DEG4 

*AC0=N(»AC8+RLFD> 

ocmT 1 A-4ACI I 


GSFO=GSF002 
TPS=TPS0 2 
PSIE=PS1 E02 
SM0I=DEG2S 

SAC7=SRLMTI**C6.»'*02I 

RUFD1=SAC9 


« wnA * 




4.0CST « * L CC ST RO 2 


RLFDl*Ht_FO04 


RCMOl-RCMOO t 


CONTROL PATH 31 

♦C6XIT0*SPEC»CFDl I • START=ST ART04 • LaCFD=LCCFO06« GSFD^GSFOO 2 #HP ILS=HP lUJSO I • tP l=TP 104 #TP2=TPZ06*TP3=TP302 • TP*=tPA02*TP5=TP502 *TP6=TP602 
.Tp7==TP7 05,FLARE=FUARF02.tOCOC=:LOCQC04,YeTA^yETA0 2tPSie=PSIE02.UOCSTR=LOCSTR0 2.CAPr=CAPT04 .RLFD^RLFDOA .RCMO=RCMOO 1 4 
LDA LOCFD .NOT • ( * AC • &Q • 0 1 LDA LOCVLD .NOT * ( SAC .EQ . O ) LDA MPILS . NOT. < S AC • EQ. 0 > 

LOA SET STA RCMVLQ 

4CEXI TO.SPEC.CFDl 1 .START-ST AUT04 , L0CFD=LCCF006. GSFD=GSFD02.MP ICS=MPI LSO I . TP 1 - TP 104 . TP2=TP206 ♦TP3=TP302.TP4=TR4 02. TP5=TP502 . TP6=TP602 
,TP7=TP705.FLARe=FLARFO?.LOCOC=UOCOC04. YETA=YErA02.PSie=PSie02.UOCSTH=:LOCSTR02.CAPT=CAPT04 .HLFO=RLFO04»RCMO=RCMO0 1 . PCM VLO=RCMVLOO** 

♦» VERIFTCATION CONDITIONS ♦♦ 


CEXITO 

MP!LS=MPiILS01 

TP6=TP602 

LOCSTR-L)CCSTR02 

SACa^SLOCVLD 


SPEC * 

TP1^=TP104 

TPrsTP705 

CAPT»CAPT04 

•N0T.(SACa*EQ«6) 


CFO 11 

TP2=TP206 

FUAHE»FLARE02 

RLFO=RLF004 

SAC3=MPILS 


STAPT=START04 
TP3=TP302 
UOCOC^LOCOCOA 
JRCMDsRCMOOl 
•N0T.( SAC3.EQ.0) 


UQCFO=LOCFO06 

TPA=TP402 

VETA=YETA02 

SACI=L0CF0 

SAC4«SET 


GSFO=GSFO02 
TP5=TP502 
PSI E=PSI E02 

•NOT. ( SACl.EO.O > 
RCMVLDl=SAC4 


•IMPLIES. - 

RCMVLD1=RCMVL004 

CONTROL PAJH 32 — ^ 

4CE)< tT0 .^EC*CF0l I .STARTisSTARTOA • LOCFO-LCCFOOS. GSFO*GSFD02* MPXLS=MplL SO 1 ♦ TP I=TP10 4 .TP2ssTP206. TP3^tP302 .TP4*TP402. TPS*TPS!>2 • TP6*TP602 
, TP7s:fP7b5. FLARE=FLARE02 •LOCOC=LOCOC04 « YETA*Y ?TA0 2»PS IfisPS I H02*LOCSTR=LOCSTR02# CAPT= CAPT04 •pLFD=RLFD04 • RCMO=«CMDO I • 

LDA CO CFO >NOT* (»AC*EQ.O) LDA LOCVLD .NOT. < SAC.ED.O > LDA MPtLS (SAC.EQ.Ol 

STZ RCMVLD 

4rCEXiTO .SPEC.CFOl I , START«ST ART04 . LOCFO=LCCFD06. GSFD=GSF002. MP1LS=MPILS01 . TP l*TP I 04 . TP,2=TP206 . TP3sTP302.TP4*TP4 02. TPS=TP502 . TP6»TP602 
VTp7=TP7bB.FLARE=FLARE02.LOCOC=LOCOC04. YETA:=YETA0 2. PS IE=PS I E02 . LOCSTR=LOCSTRo 2. CAPT«CAPT04 .ftLF3=RLFD04 .RCMO=RCMDO I . RCM VL3^RCMVLD04» 

44 VERtFlCATlON CONDITIONS 4* 



CEXITO 

SPEC 

CFO 1 1 

START=START04 

LOCFO=LOCFO06 

GSFO=GSFD02 

2 2 
- ?o 


HPILS-MPILSOI 

TPlaTPlOft 

1P2-TP206 

TP3=TP302 

TP4i=Tp402 

TP5=tP502 


TP6=tp602 

TP7=TP70S 

FLARE=FLARE02 

LOCOC=LOCOC04 

YETA=YETA02 

PSIE=PSIE02 

^ 2 


LOCSTR=LCCSTR02 

CAPT=CAPT04 

RLFD=RLFD04 

RCMOsRCMDOl 

saci=locFd 

•NOT. (SACl.HQ.Ol 


SAC2SLQCVLD 

•implies. 

RCMVLDl=RCMVLD04 

•NOT. ( SAC2.E0. 0 ) 

SAC3=MPiLS ^ 

SAC3.EO.O 

RCMVLOl^O 


-g g 


CONTROL PATH 33 L 

4CEXI T 0.SPEC.CFDI 1 . START- START 04 . UOCFO=LGCFD06 . G3FD=GSF00 2. MPILS=MPILSO 1 . TP l-TP 10 4 ,TP2==TP206. TP3=TP30 2-,TP4=TP4 02. TP5=TP502 . TP6=TP602 

,TP7sTP 7 05.FLARE=FLARE02.LOCDC=L^.COC04, YETA=YETA0 2.pSIE=p-;iE02.LOCSrR=LOCSTR0 2.CAPT=CAPT04.RLFO=RLF004^.RCMO=RCMD0t4 

LOA LOCFD .NOT. (SAC. EQ.br LDA LOCVLD (SAC.EQ.Ol STZ RCMVLD i 

4CEXI TO. SPEC.CFO! I , s TART=START04. L0CF0=LCCFD06 • GSFO=GSFDO 2 .MP ILS=MPI LSO 1 . TP l=TP I 04 . TP2=TP206.TP3=TP302.TP4=TP402.TP5=TP502 . TP6=TP602 

.TP7=:TP70$.FLARE=FLARE02.LOCaC=LOCOCb4.y£TA=YETA02.PSlE=PSIE02.UOC5TR=L0CSTR02.CAPT=CAPT04.RLFO=RLFD04.RCMO=RCMD0l.RCMVLD=RCMVLO044 


Sts 

& 


44 VERIFICATION CONDITIONS 4* 


CEXITO 

MPILS^MPILSOI 
TP6=JtP6D2 
LOCSTR=^LCCSTR02 
SACpsLOCVLO 
. iMPL tes . 

RCMVLD I =HCMVLD04 


SPEC 

TPl^TPlOA 

TP7=TP705 

CAPT-CAPT04 

SAC2.EQ.0 


CFOl I 
TP2=TP206 
FLARFi^:FLARE02 
RUF D=RLFD04 
RCMVLD1=0 


START=START04 

TP3=TP302 

LOCOCs=LOCOC04 

«CMO=RCMOOl 


LOCFD=LOCFD06 

TP4=TP402 

YeTA=YETA02 

SACl-LOCFD 


GSFO= GSFD02 
TPS=TP50 2 
PSI£sPStE02 

•NOT. ISACI.EQ.O > 


' CONTROL PA.TH 34 

ACEXITO . SPEC. CFDll.START=tSrAftT04.L3CFD=LCCF006.GSFD=GSF002,MPlLS==MPtLSai.TPl=TP104.TP2=TP20 6.TP3=Tp302.TP4=TP4 02.TPS=TP502.TP6=TP602 
,tP7= fPTOS.FLAREi^FLAREO? .LOCOC=LOCDC04 . YETAsrYETA0 2.PS IE=PS I EOa.LOCSTR^LOCSTRO 2. CAPTiCAPT Oft .RLFD=:RLFO04.RCMO=RCMO0 1 * 

IDA LP^Ff) (TAT t DA TUfOPD .NO T . ( TAT . NT .Q 1 STZ PCMVIO 











V 


♦♦ veRlFICATlqK CONDITIONS *♦ 


SPEC 

TP1=TP104 

TP7=TPTp3 

CAPT=CAPT04 
•NOT. ( SAC2.NE.0) 


CFO 1 1 

TP2-TP206 

FLAP£=:FI_ARE02 

RLFD=HLFD04 

RCMVLOl=0 


STA«T=START04 

TP3=TP302 

LdCOC^LOCOCOA 

RCMt>=ReMOOl 


LOCFD=LQCF006 

TP4=TP402 

YETA=YETA02 

SACl=LaCFD 


GSFt>= GSF002 

TP5=TPS02 

PSIE=PSIE02 

SACt«E0*0 


CEXITO 

mpils=mpilsoi 

TP6=TP602 
L0CSrR=LCC5TR02 
SAC2=GUI02D 
. IMPLIES. 

«CMVLDl=RCMVLO04 

control path 35 

♦♦ VERIFICATION CONDITIONS A4 


CEXITO ^ 

MPILS=MPILSOl 
tP6=rp602 
LOCSTR=L0CSTR0 2 
SAC2=GU1D20 

•implies. 

RCMVLOI^RCMVUDOA 


SPEC 

TPI=TP104 

TP7s=TP705 

CAPT=sCAPT04 

AAC2.NE.0 


CFO l ^ 

TP2=TP206 

FLARE=FLARE02 

RLFD=RLFDQ4 

«AC3=SET 


START=START04 

TP3=TP302 

l_OCOC=:LOCOC04 

pCMp=RCMO01 

RCMVL01-SAC3 


LOCFO=LOCFD06 

TP4=TP402 

YETA=YETA02 

SACl-LOCFD 


GSFO=GSFO02 

TPS=TPS02 

PSIE=PSIE02 

»ACtaE0*0 


I 'i 




CONTSOl. PATH 36 — 

•NaT.(SAC*EQ*OI 
MPY K1 
01 V TAD4 
DIV C18O0F 



LDA LOCFO 

.NOT. 

(SAC«EQ*0} 

LOA 

gsfo 

1 ’S-- 

LDA SET 

STA 

Gsro 

LOA 

GAMMA 

)CDIR( SA0*2**D)% 

SLL 

3 

SUD 

TP3 

a 

MPY DELTAT 

SAR 

4 

AOS 

TP3 


MPY K3 

ADD 

gsa 

SU3 

K4 


•N0T*<*AC«NE.0> LOA GSBSNS 

STA CGAMC LOA GSDEV 

XABStSAO .UT. A0S(TAU4)X 
XABSt SAO .UT. ABSI Cl aOBF)X 
CMA STA TP4 


*CexlTO.SP£C.CFOl S*START*=STARTo 4,LOCFD= 
LARF=FLARE02*LOCOC=L OCOCOA, ve TA*VETA02. 
GAKC=LGAMC02* 

VERiFICATIUN CONOITIDNS 4» 


CEXITO 

MPIUS=MPILSOl 
TPt>=TP602 
LOCST OCS TRO 2 

•NOT. ( itACl .EQ*0) 
CSFOlsiACA 
SAQliS(SAC7.*M01 ) 
*MQ3=MUL TMI SACI O 
TP3l=*AC13 
»ACld=~SAClT 

• implies* 

D1R< SAOl •2»*«) 
TP3l«TP303 


SPEC 

TPl=TP104 

TP7=TP7oS 

CAPT=CAPT04 

*AC2=GSFD 

SACS=GAMMA 

SAQ2=SAQ142»*8 

.DELTAT) 

IAC14=SAC13/C1 OOHF 
TP4l-iACtO 


CFO 1 1 
TP2=TP206 
FLARE=FLAR602 
RLF0=RLFD04 
• not* t$AC2.NE«0 } 
LGAMC1=»AC5 
SACa^AR (SA02I 
SAC3 l=MULTCSACtO 
tM04=MULTMtSACl4 


START=START04 

tP3=TP302 

LDCOC-LQCQC04 

RCMO^BCMDOl 

SAC3=GS0SNS 

SAC6s=GSDEV 

*MQ2=MRISAQ2> 

,OELTAt> 

, K3 1 SAC 1 5=MULT ( SACI 4 , K3 ) 


LOCFD=LOCFO06 
TP 4=TP402 
YETA=YETA0 2 
RCMVL0=RCMVLD04 
•NOT*(SAC3*EQ*OI 
SMQl=MUUTMCSAC6.Kl > 
»ACD=N( SAC8-TP3) 
SAC12=SACI 1/2444 
*AC16=N( SAC154GSA) 


AbSf SAC9 > .UT.AQSI TAU4T 

TP4 1 — TP403 GSFOl=sGSFD03 


ADS<SAC13).LT.ABSf CteOOFl 
LGAMCl=LGAMC02 


GSFD=:GSFD02 
TPS^TPSOa 
PSIE=PSI E02 
SACl=LOCFO 
SAC4=SET 

SAC7= MUL TISACS*Kll 
SACI0=SAC9 /'TaU% 
SAC13=N( SACI 24tP3l 
SACI7=NC SAC16-K4T 


CF015 


— CONTROL PATH 37 


.DA IOCP0 .k40T.ttAC.eo.O) LDA G3FD .NOT. C SAC .ME . O J LDA GS«SNS (SAC.EQ.OT 


UOA I.OCP0 
UOA f.UlOTl) 


.N 0 f - ( SAC .1 O.n) 




rv ^/•■*~''' i- **■ 


OIV C3B2 
%RC SAC-HRAO)X 


MPV D6UTAT 
•NOT. tSAC.LT*0) 


5AR 

I.DA 


2 

TIMER 


SU^ PCMO *ABS(SAC>.UT.AQS(C3B2)X 

ADS PCMD LOA MDA SU0 HRAD 


KFI-R=KFl.ROl» 

** VCRIFICAriON CONDITIONS »• 


CEXITO 

MPU.S=MP ILSOI 
TP6=TP60a 
UOCST R=U DCS TR 0 Z 
•MOT. ( sACi .eo.o ) 

,NOTi < IAC4 .EQ. 0) 
SAC9=*ACa/'(CH0 
»ACI3FtAClZ/C.lDZ 
»ACIf)KN( SAC15+PCMD) 
*ACZ0=tACl 9-B I NTME 
. IMPLIES. 

A0S(*AC6».LT,ABS( VGS > 
R<*Atl7-HHAD) 


SPEC 

TPI=TP104 

TP7=TP70S 

CAPT=CAPT04 

tACa=GSFO 

SACS=VFRSTR 

IAC10=*AC9/PI82 


CFO 1 1 

TP2=TPZ06 

FUARE=FLARE02 

RLFD=RLFDOA 

.NOT. t SACZ.NE.01 

SM01=C5B1S 

SMQa=0EG6 


*M(13=MULTM( SAC 13.0ELT AT) 


PCHDl=*ACI6 
SACZO .EQ .0 


$AC17=MDA 


LO CFD=L OCFD06 
TP4=TP«02 
VETA=VETA02 
RCMVLO=RCMVLD04 
SAC3.EQ.0 
SAC7=SAC6/tfGS 
SACI l=SULMT«SAClO.Sf4Q2 ) 

SAC14=M0LT( SAC13,0=LTAT) 

SACI a=SACI7-HRA0 


START=START04 

TP3=TP302 

LOCOC=UOCOC04 

RCMO=RCMOOI 

SAC3=GSBSNS 

SAC6=SHLMT( SAC5.SM01 ) 


.NOT. (SACI a.LT.OI 


GSF0=GSF002 
TPS=TP50 2 
PSTE=PSI E02 
SACI=LOCFO 
SAC4=GUI 033 
SAC8=SAC772*»2 
SACI2=N( SACI I-PCMO> 
SAClS=SACI4/2**2 
SAC19=TIMER 


ABS< SACS) .Lr.ABS(KH3) A8S(SAC9> .LT. ABS( P IB2 ) 
R($ACI9-B1NTME) PCHD1=PCMD02 KFLR=KFLROl 


ABSCSACt 2) .UT. ABS( C3B2 ) 


- — CONTROL PATH 38 — 

LOA GS8SNS (SAC. EO.O) 

TRA SRLMT 
*ABS( SAO .LT.ABSOCHDI* 

LDQ 0EG6 
MPY DELTAT 
.NOT. (SAC.LT.O) 

T(MEH 


LOA Locro .not. (SAC. EO.O) lda 

LDA GU1D30 .NOT. (SAC. EO.O) LDA 

XABS( SAC).LT .ABS( VGS)X 

DIV KHD XABS( SAC) .LT.AQS(PI02)X 

SOB PCMO *A0S(SAC).LT.AHS(C3 b 2)X 

ADS PCMO lda HDA 

SUB BINTME XR(SAC-DINTME)* 

•NOT. ( SAC. EO.O ) STZ PCHVLD 

•.FALSE.* 


SUB 


GSFO 

• NOT. 

(SAC«NE«0> 

VERSTR 

LDQ 

C5B15 

VGS 

SAR 

2 


DIV 

P1G2 


DIV 

C382 

HRAD 

SR(SAC-HHAD)X 


LOA 

0INTME 


STA 


TRA 

SAR 

LOA 

LOA 


SRLMT 

2 

timer 

PCMVLO 


♦ • VERIFICATION CONDITIONS »• 


CEXITO 

HPILS=MP1LS0I 
TP6=TP602 
LOC5TR=LCCSTH02 
.not. I SACI .EO.O ) 

.NOT. ( SAC4. EO.O ) 
SAC9=SAC8/KHD 
SAC13 = *AC12/C3B2 
SAC15=N( SACIS.PCMOJ 
SAC20 = SACI9-'nlNTME 
PCMVLO 1=0 

. implies . 

ABS( S ACO ) .LT . AOS( VGS ) 

R(SAC17-HRA0) 


SPEC 

TPl=rPl04 

TP7=TP705 

CAPT=CAPT04 

SAGZ=GSFD 

SACS=VERSTR 

SACI0=SAC<3/PIB2 


CFO 11 

TP2=TP206 

FLARE=FLARE02 

Ruro=RLF004 

.not. (SAC 2.NE.0) 

SM01=CSB15 

SMQ2=DEG& 


START=START04 

TP3=TP302 

LOCOC=LOCOC04 

HCMD=RCMDOl 

SAC3=GSBSNS 


LOCFO=LOCFD06 

TP4=TP402 

YETA=VETA02 

RCMVLD=RCMVL004 

SAC3.EQ.0 


SM0 3 =MULTM( sac I 3 , CELT at ) 
PCM 01=SAC16 SAC17=M0A 

.NOT. ( SAC20 .EQ .0 ) SAC2l=31NTME 


SAC6=SRLMT( SACS . SMQl ) SAC7=SAC6/VGS 
SAC I 1 =SRLMT( S AC 1 0 . SMQ2 ) 

SAC14=MULT( SAC13.DELTATJ 

SACI 8=SAC17— HRAD .NOT.CSACia.LT.OI 

TIMERl = SAC2f, SAC22=PCMVLD 


GSF0=GSFD02 
TPS=TP50 2 
PSIE=PSI E02 
SACI=LOCFO 
SAC4=GUl 033 
SACa=SAC7/2»»2 
SAC12=N( SACI l-PCMD) 
SACl5=SACI4/2**2 
SAC19=TI MER 
.NOT. (SAC22.E0.0I 


ABS(SAC0 ).LT.ABS(KHO) AHS ( S AC9 > .LT. ABS( PI B2 ) 
R(SAC)9-BiNrME ) .FALSE. 


ABS(SACI2) .LT.ABS(C3B2) 


I 


CONTROL PATH 39 - — 

♦ CEXITO. SPEC. CFDl I, START=STAHT04.LOCF0=LCCFD06^GSFO=GSF002.MPILS=MPILS0WTPI^-TPl04^TP2-^^ 

LDA GSaSNS ISAC.EQ.O) 

TRA SRLMT 

XADS( SAC).LT.ABS(KHD)X 
LOO 0EG6 TRA 

MPY DELTAT SAR 


LOA LOCFO .NOT . ( sac .EO . 0 ) LOA 

LDA GUID3D ,NQ T . (SAC. FQ • 0 ) LDA 

*aqs(sac).lt.abS(vgs)x di'' 

0,V kHO XA0S(*AC).LT.ABS(P182)X 

SUH PCMO XABS ( "SA C ) *LT • zNB'S C C3BS* ) 

ADS PCMO 


GSFD 

•Nor.tsAC.Ne. 

VEUSTR 

LOQ C5Q15 

VGS 

SAR a 


DIV ptaa 


DIV C30? 


A">) 


SRLMT 

2 











•* VEnlF ICATION conditions 


G n3. 
C5 ^ 

^5^ 








CEXITO 

MPtLS=MPILSOl 
rp6=TP602 
LOCSTR=L0CSTR02 
•NOr« (SACl •E0«0) 

• NOT. C SACA.eO.O) 

1AC9=*AC8/KH0 
SAC13=SAC12/C302 
SAC16-N< iAClS>PCMO> 
IAC20=«AC1 9-0 INTME 
4 AC23=RCMVUD 
. IMPUTPS . 

ABS<4 AC6 5.UT. AQS( VGS I 
R (SAC17^HRAD» 


SPEC 

TPl=TP104 
TP7=TP705 

CAPT=CAPTOA 

»AC2=GSFD 
*AC5=VERSTR 
SAC10=tAC9/PI32 


CFO 1 1 
TP2=TP206 
FLARE=FLARE02 
RLF D=RLF004 
•NOT. ( S AC2.NE.0) 
$MQ l=CSB15 
$Ma2=DEG6 


START=START04 

TP3=TP302 

LOG OC ss L O C OC 0 4 

RCMD=RCMOOl 

SAC3=GSBSNS 


LOCFO=LOCF005 
TP4=TP402 
YETA=YETA02 
RCMVLD=RCMVLD04 
SAC3.EQ.0 


$MQ 3=MULTM( SAC 13.06LT AT ) 

PCMDI=$AC16 SAC17=MDA 

• NOT. ( S AC20 .EQ •O ) 1 AC 21 =0 I NTME 

PCMVL01=iAC23 

AOS( SAC8 > -L T.ABSC KK> ) ASS(SAC9) .LT. ABS( PI B2 1 
R ( SACl 9-aiNTME ) .FALSE^ 


SAC6=SHLMT1 sacs. SMQ l ) SAC7=SAC6/ VGS 
SACl I=SRLMT(SAC10.SMQ2 ) 

SAC14=MULTI SAC13.0ELTAT) 

SACia=SACl7-HRAD .N^T. TS ACl 8 .LT .0) 

T1MERI=SAC2X SAC22=PCMVLO 


CSFD=GSFD02 

TP5=TP502 

PSIEsPSI E02 

SACl^LOC FO 

SAC4=GUI033 

$AC8=SAC7/2**2 

SAC12=N( SACl l-PCMD)- 

SAClS=SACl4/2**2 

SAC19 = TIMER 

SAC22* EQ *0 


AQSCSAC12) »LT .ABS( C332) 


CONTROL PATH 40 

LOO C5B15 
SAR 2 
OlV PIB2 
OIV C382 
XR(SAC-HRAO)X 


LOA LOCFO ' .NOT • ( SAC • EQ ♦ 0 ) LDA 

LOA GUID30 . ,NQT. ($AC«EQ*0) UDA 

XABS(SAC).LT.A0S(VGS)X OIV 

QIV KhO XABS(SAC).LT*A 0S<PIB2)% 

SUE3 PCMO XA0S( SAC ) .LT • A6S ( C3a 2) X 

AOS PCMO LOA MDA SOS 

sta pcmvlo 
4.FALSE.4 


GSFO 
VSRSTR 
VGS 


HRAO 


LOA GSBSNS 
TRA SRLMT 
XA8S( SAC).LT.ABS(KHO)X 
LOQ 0EG6 TRA 

MPY OELTAT SAR 

(SAC^LT*0> LOA 


SRLMT 

2 

RCMVLO 


♦♦ VERIFICATION CONDITIONS *♦ 


CEXITO 

MPILS=MPILS01 

7P6=TP602 

L0CSTR-L0CSTR02 

• NOT. ( SACl .EQ #0 ) 

• not. < SACA • C.J 3.0) 
SAC9=SAC«/KH0 
SACl 3=SAC12/C3B2 
SAC16=N( SACI5+PCMD) 
PCMVLO I-SAC19 

•implies. 

ABSl SAC6 l.LT.AOS ' 5> 

R( SAC 17-^ HR AD) 


SPEC 

TP1-TP104 
TP7=TP/05 
CAPT=CAPT04 
$AC2=GSF0 
SAC5=VERGTR 
SAC10=SAC9/PI82 
$ MQ 3= MULT Ml $ AC 13.0 ELT AT) 
PCM01=SAC16 SAC17=M0A 


CFO I I 

TP2=TP206 

FLARE=FLARE02 

RLF O=sRLFD04 

•NOT.l SAC2.NE.0) 

SMQl=C5Bl5 

SMQ2=DEG6 


STAHT=START04 

TP3=TP302 

L0COC=L0C0C04 

RCMO=RCMDOl 

SAC3=GS8SNS 


LOCFD=LOCFD06 
TP4=TP402 
YETA=YETA02 
RCMVLO=RCMVL004 
SAC3.E0. 0 


SAC6 =sRLMT( SACS , SMQ l > SAC7=SAC6/ VGS 
SACl liiSRLMTl$AC10.SMQ2) 

SAC14=MULT( SAC13. OELTAT) 
SAC18=SAC17-HRA0 “ SAC18.LT.0 


GSFD=GSF002 
TP5=TP50 2 
PSlE=PSie02 
saci^locfo 
SAC 4=GUI 030 
SAC8=SAC7/2*42 
SACI2=N(SACl 1-PCMDJ 
SACl5=SACl4/24*2 
SACl9=sRCMVL0 


AtiSlSACa )-LT-A0S(KHD) ABS 1$AC9) .LT. ABS(PI32) 
• FALSE • 


ABSISAC12I •Lr.ABStC3B2) 


— CONTROL PATH 41 


« riA CSAC.EOaO) ST2 PCMVLO 


LOA GUI03D 
♦ .FALSC • • 

♦4 VERIFICATION CONDITIONS *4 


CEXITO 

mpils=^mpilsoi 
TP 6=TP602 
UOCST R"L CCSTR02 
.NOT. t SACl .EQ .0 ) 
SACA . EQ . 0 
. lMf»| l« ' . 


SPEC 

TPl=TP!04 
TP7;=TP70S 
CAPT= CAPT04 
SAC2=GSF0 
PCMVLO 1=0 


CFO I I 
TP2=TP206 
FLARE=FLARE02 
RU=^0=RLF004 
•NOT. ( SAC2.NE.0) 


START=START04 

TP3=TP302 

LOCOC=LOCOC04 

RCMO=RCMP01 

5«f^ft3=GSBSNS 


LOCFO=LOCFO06 

TP4=TP402 

YETA=YETA02 

RCMVLO=RCMVL004 

SAC3.EQ.0 


GSFO=GSFD02 
TP5=TPS0 2 
PSIE=PSIE02 
SACl=LOCFO 
SAC4=GU1 030 




CONTROL PATH 42 


• CEXITO, SPFC»Cf^Dl I *5TART=START04.LOCFO; 

• TP7=TP7 OS.FLARE— FLAREO2*LOCOC=LaCOC04 

LDA LQCFD •NOT. (SAC.EQ.O) 

%DIR< SAQ»2»*a)X SLL 8 

MPY OELTAT SAR a 

MPY K3 add GSA 

♦CEXITC, SPEC.CF015.START=START04.LOCFD: 
LAWE=^FLARF02 .LOCOC=LOCOC04, YETA=YHTA0 2. 
GAMC=LGAMC024 


*^^^“^^*°^’^'^ 2 =^P 206 .TP 3 =TP 302 ,TP 4 =TP 4 02 .TP 5 =TP 5 a 2 -TP 6 :=TP 60 P 
' "^^J^°^’^^*^''^^^^°^**-°^^'^^=^°‘^STR0 2,CAPT=CAPT04,RLFO=RLFD04.RCMO=HCMOOI.RCMVL3 = RCMVL004* 

LDA GSFD (SAC.NE.O) LDA GSOEV MPY Kl 

-^3 TP3 XA0S(SAC> .LT.ABS(-TAU4)% otV TAU4 

ADS TP3 XADS( SAC) .LT.ABSrCl 80BF)X DIV C1800F 

CMA STA TP4 

:LCCFD06,MPILS=^MPILS01 .TPI=TP104.TP2=TP206.TP3=TP303.TP4=TP4 03,TP5=TPS02.T=»6=TP6 02.TP7=TP705.F 
PSTH=PSIE0 2,LOCSTR-LOCSTR0 2.CAPT=CAPT04,RLFD:=RLFD04.RCHD=RCMD01 •RCMVLD=RCMVL004 .GSFD=GSF003.L 


♦* VERIFICATION CONDITIONS ♦♦ 


CEX ITQ 

MPILS=MPILS01 
Tp6=rp602 
L0CSTR=LGCSTR02 
• NCf . ( SACl .EO.O > 
SA6|=< SAC4.SMQ1 ) 


5N{Q3=MULTM(SAC7*0ELT AT ) 


SPEC 

TPI=TP104 
TP7=TP705 
CAPT=CAPT04 
SAC2=GSFD 
SAQ2=S AQ i*2**a 


CFD 1 1 

TP2=TP206 

FLARE=:FLARE02 

RLFO=RLFO04 

SAC2.NE.0 

$AC5=AR(SAQ2> 


START=START04 

TP3=TP302 

Lacac=LOcoco 4 

RCMO=RCMDOl 

$AC3=GSDEV 

SMQ2=MR (SAQ2) 


TP3I=*AC10 
SAC15=-SAC14 
• IMPLIES. 
DIRISAQl ♦?4*8) 
TP31=TP303 


SACll=SAClO/Ci SOBF 
TP41=$AC15 

ABS(SAC6) .LT.ABSI TAU4 ) 


®AC8=M'JLT(SAC7,D£LTAT) 

5MQ4=MULTM( SACt 1 .K3 ) SAC12=MULT( SACl I 


K3) 


L0CF£>=L0CF006 
TP4=TP402 
YETA=YETA02 
RCMVL6=RCMVLD04 
IMQI=M0LTM(SAC3.KI > 
SAC6=N(SAC5-TP3) 
SAC9=SAC8/2*44 
SAC13=N{ $AC12+GSA) 


GSFD=GSF002 

TP5=TP502 

PSIE=PSIE02 

SACl=LOCFO 

SAC4 = MULT(SAC3.KU 

SAC7=SAC 6/TAU4 

SAC10=Nf SAC9FTP3) 

SAC14=N( SAC13-K4) 


TP4 1=TP403 


GSFO=GSF003 


ADS (SAC 1 0 ) .LT.ABS(C ISODF ) 
LGAMC=LGAMC02 


CONTROL PATH 43 


TRA SRUMT *ABS(SAC).1_T.A3S(VGS)X DIV VGS SAR CSB15 

XABS(SAC).UT.AeS(PIB2)* DIV P.B2 


VERIFICATION CONDITIONS ♦♦ 


CEXITO 

MPILS=rMP ILSOI 
TP6=TP60 2 
LOCSTR=LQCSTR02 
SACl.EQ.O 
SACG^S AC4/VGS 
SAC10=N( SAC9-PCMD) 
SAC13 = SACl2/2*<=2 
SAC17=TIMFR 
• IMPLIES. 

AHS(»AC4 ).LT.A0S(VGS) 
R( $AC15-HRAD) 

CONTROL PATH 44 


SPEC 

TPl=rP104 
TP7=TP705 
CAPT=CAPT04 
SAC?=GUID30 
SAC6=SAC5/2 v* 2 
SACU = SACl 0>X3B2 
SAC 14 =N ( SAC 13FPCMD ) 
SAC13=SAC17-aiNT.ME 

AvJS( SAC& ) .LT.ABiU KHO) 
RC^ AC.l 7-BlNTME ) 


CFD 11 
Tp2=TP206 
FLARE=FLARE02 
RLFO=RLFD04 
•NOT. (SAC2. EO.O) 

SAC7=$AC6/KH0 
1MQ3=MULTH( SACl ! .DELTAT) 

PCMOl =$ACI4 SAC15=MDA 

SAC 18. EO.O 

AOS t SAC 7) .LT. A8S(PIB2) 

PCMDl =:PCMD02 KFLR=KFLROl 


STARr=START04 

TP3=TP302 

LOCOC=LOCOC04 

RCMD=RCM001 

SAC3=VERSTR 

SAC8=SAC7/PIB2 


LOCFO=LOCFO06 

TP 4=TP402 

YETA=YETA02 

RCMVLO=RCMVLD04 

S«iQl=tCSDl5 

SMQ2=DEGS 


GSFO=GSFD02 
TP5=TPS0 2 
PSIE=PSI £02 
SACI=LOCFD 

SAC4=SRLHT(SAC3.SMQ1 ) 
SAC9=SRLMT( SACa • SMQ2I 
SAC12=MULT(SACI l.OELTAT) 

SAC16=SAC1S-HRA0 .NOT. (SAC15.LT.0I 


AD5(SACl 0) «LT • ABS( C302 ) 


♦ CEXIT0.SPEC.CFD1 i.START=START04,LaCFD=:LCCFD06.GSFD=GSFD02..MPILS=MPlLSOI.TPl = TPI04 TP»3-TP^nA xr.. 

TRA SPLMT ^ABSCSAC) .LT.AOSl VGSIX OIV VGS qao o CSBIS 

>=ABS(*AC).t.T.A8SIKHB.X OIV KHD XADS ( *AC ) .LT. ABS( PIbL ” 

rr<A ur vj ^ . *»f M»> VAM-( T J -r. j 


l.DQ 


OF <,6 


DIV PIB2 








•not# ^*AC#UT# 0) LOA 
St A tlMER lda 
♦ . FALSE. * 


T IMEW 
S»CMVLO 


SUB BINTME 
•NOT.($AC*EQ.OI 


XR ( SA C-B I NTME ) X 
STZ PCMVLO 


I .NOT.(SAC.EQ«0) > LOA 


BINTME 


VfcHIFlCATinN CONDITIONS ♦♦ 


CEXITO 

MPILS=MPILS01 

TP6=TP602 

LOCSTR=LCCSTR02 

SAC1.EQ.0 

»AC5=SACA/VGS 

JACrO=N( *AC9“PCMD) 

tAC13=SACl 2/2**Z 

SAC17=TIMER 

•NOT • ( SAC20 .EQ .0) 

•IMPLIES. 

AUSI -SACA ).lT .ABS( VGS) 
R($AC15-HRAD> 


SPEC 

TPl=TP104 
TP7=TP705 
CAPT=CAPT04 
SAC2=GUI03D 
SAC6=SAC5/2*+2 
SACl l=SAC10/C3B2 
SAC14=N( SAC 13+PCMD) 
SAC 18=T. ACl 7-0 I NTME 
PCMVLDI=0 

AOStSACG ).Lr.ABS(KHD) 
R (SAC17-BINTME ) 


CFDll 
TP2=TP206 
FLARE=FLAR602 
RLFO=RLFO04 
•NOT. (SAC2«EQ«0) 
$AC7=$AC6/K HO 


STARTs ST ART04 

TP3==TP302 

LOC dc=LOCOC 04 

RCMQ=RCMD01 

SAC3=VERSTR 

SACa=SAC7/PIB2 


LOCFD=LOCFD06 
TP4=TP402 
-YETA=YETA02 
RCMVL0=RCMVL004 
SMQI=C5B15 
SMQ2=0E’G6 


GSFOxGSFOOa 
TP5=iTP50 2 
PSIE=PSIE02 
SACI=L0CF0 

SAC4=SRL MT( SAC3 • SMO 1 1 
SAC9=SRL MTf SACS • SMQ2 ) 


$M03=M0LTM£ SACl I •DELTAT > 
PCMOl=SACl4 SAClSxMOA 

.N0T.(SACIS.EQ*0) SAC19xB1NTME 


ABS ( S ACT ) *LT . ABSt PI B2 > 
.FALSE. 


SAC12=MULT<SACl I tOELTAT) 

SAC16=SACl5-HRAO .NOT . C SACI6 . LT • 0 ) 

TI MER l=S AC 19 SAC20=PC MVLD 


ABSISACIOI .LT.ABSIC332) 


CONTROL PATH 45 

2 


LOA LOCFD (SAC.EQ.O) 

TRA SRLtIT XABS(SAC)*LT 

XA0S( SAC).LT.ABS(KHD)X 


LDO 

0EG6 

TRA 

SRLMT 

MPY 

OELTAT 

SAR 

2 

• NOT. 

( SAC.LT .0 ) 

LDA 

TIMER 

STA 

TIMER 

LDA 

PCMVLO 


LOA 
, ABSiVGS )X 
DIV 
SUo 
ADS 
SUB 
(SAC. 


GUID30 

KHO 
PCMD 
PCMD 
D I NTME 
EO.O) 


• NOT. ( SAC.EQ . 0 > LOA 

Otv VGS SAR 

%ABS(SAC> .LT.ABSI PXB2)% 
XABS( SAC) .LT.ABSf C3BZ}% 
LOA MDA SUB 

5CRCSAC-BINTME)X I .NOT 

LOA RCMVLO ST A 


HR AO 

.(SAC.EQ.O) ) 
PC MVLD 


LDQ C5B15 

DIV PIB2 
OlV T:302 
XR(SAC-HRAOI% 
LOA OINTHE 


♦.FALSE.* 

•* verification conditions ♦♦ 


CEXITO 

MPILSxMPILSPl 
TP6=TP(>02 
L0CSTR=LCCSTR02 
SACJ .EQ . 0 
SAC5=$AC4/VGS 
SAC10-N( SAC9-PCM0) 
SAC13=SACI 2/2* *2 
»AC1T=TIMER 
SAC23 • EQ .0 
•IMPLIES. 

A3SISAC4 ).LT.A8S( VGS) 
R(SACl5-hRA0) 


SPEC 

TPl-=TPt04 
TP7=TP705 
CAPT=CAPT04 
SAC2=GUI03D 
SAC6=SACS/2**2 
SACll=SAClO/C302 
SAC14=N(SAC13+PCMD) 
SAC ia=SACl7-Dl NTME 
SAC21=RCMVLr> 

ABS(SAC6).LT.AbS(KH0) 
R(SAC17-BINTME ) 


CFO 1 1 
TP2=TP206 
FLARE=FLARE02 
RLFO=RLF004 
•NOT. ( SAC2.EQ.0) 
SAC7=SAC6/KH0 


STARTxSTARTOA 

TP3=TP302 

LdCOCxLOCG^04 

RCMDxRCMOOl 

SAC3XVERSTR 

SAC8=SAC7/P IB2 


L0CF0=LOCFO06 
TP4=TP402 
YETA=YETA02 
RCMVLD=RCMVL004 
SMQl=CS3 15 
SMQ2xOEG6 


GSFD= GSFO02 
TP5=TP50 2 
PSI£=PSIE02 
SAClxLOCFO 

$AC4xSRLHT( SAC3.SMOI ) 
SAC9=SR_MT(SAC8.SMQ2) 


$yQ3=MULTMC SAGH .OELtAT ) 
PCMDl=SACI4 SAC15=MDA 

•NOT. ( SAC18.EQ.0J SAC19=8INTME 

PCMVL0l=SAC21 

ABStSACT) .LT.A0SIPIB2) 

.FALSE. 


SACl2=MULT(SACll jOELTAT) 

SAC16==S AC15-HRA0 .NOT. (SAC16.LT. 

TI M£RI=SAC19 SAC20=PCMVL3 


ASS { SACl 0) .LT .ABSt C3B2 ) 


,Q) 


CONTROL PATH 46 

♦ CEXITO. SPeC.CFDll.START=SrARTM.LOCFD=LCCFD06.GSFD=GSFD02,MPIl.S=HPIUSOl.TP^ 

LDQ C5B1S 


LOA LOCFO (SAC.EQ.O) 

TRA 5RLMT XADS(SAC)*LT 

XA0S( SAC). LT. ABSt KHO )X 

LOQ DEG6 TRA SRLMT 

MPY OELTAT SAR 2 

(SAC.LT.O) LDA RCMVLO 

♦ .FALSE. ♦ 

♦♦ VERIFICATION CONDITIONS *♦ 
CEXITO 


LDA 

GUI 030 

;>x 


OlV 

KHO 

sue 

PCMD 

AOS 

PCMD 

STA 

PCMVLO 


MPIl ' 


II S‘>1 


SPEC 

T» 1 T M I '' A 


•NOT. I SAC.EQ.O ) LOA 
DIV VGS SAR 
XABSCSACJ .LT.ABS(PI02)X 
XABStSAC) .UT.ABSt C3B2 ) X 
LDA MO A SUB 


START=STA«T04 


VERSTR 

2 


DIV PIB2 
Orv C3B2 
XR(SAC-HRAD)X 


LOCFD=LOCFD06 


GSFD=GSF002 




COCSTR = l_CCSTR02 

$AC1 •E0«0 

*ACS=SAC4/VGS 

SAC10=N( SAC9-PCM0) 

SAC13=SAC12/2*A2 

SAC17=RCMVLD 

•IMPLIES. 

ABS(S AC4 ).LT.A8S( VGS ) 
H(SAC15-HRAp) 


CAPT=CAPT04 

SAC2=GUID33 

SAC6=SAC5/2#*2 

*ACI l=iAC10/C302 

*AG14=N(SACI3*PCM0> 

PCMVLD!=IAC17 

AOS( iAC6 ) *LT.ABS( K.HO ) 
•FALSE. 


RLFO=RLFO04 RCMOssRCMOOl 

• NOT. (SAC2.EQ^0) SAC3==VERSTR 

SAC7=SAC6/KHD SAC8=S AC7/P IB2 

$MQ3=MULTM( SACl I .OELTAT) 

PCMD1=SAC14 SAC15=:M0A „ 


ABS(SAC7) •LT^ABS(PI82) 


RCMVLDsRCMVLDOA SACl=LOCFO 

SMQ1-C5815 SAC4=SRLMT(*AC3,SMOI ) 

SMQ2=DEG6 SAC9=SR-MTI SAC9*SMQ2) 

SAC 12=MULT( SACl I •OELTAT) 

SAC16=$ACl5-HRAO SAC16.LT.0 


ABSf SACIO) .LT.ABSI C3B2) 


CONTROL PATH 47 

♦CFXITO.SPHC.CFOI I .START^ST ART04. LOCFO=LCCFPO& . GSFO=GSFD0 2 .MP ILS^MPlLSO I . TPl=TP 104 . TP2=TP206 •TP3=tP302, TP4=TP402> TP5=TP502 . TP6=TP602 

,TP7=TP705,FLARE=FLARe02.LQCOC=LOCOC04.YETA=YETA02.PSie=PSre02.LqCSTR=LOCSTR02.CAPT=CAPT04.RLFO=RLF004.RCMO=RCMDOl.RCMVL3=RCHVL0044 

L0A LOCFp ISAC.EO.O) LOA GUIP30 ISAC.EQ.O) STZ PCMVLO 

♦•FALSE.* 


♦♦ VERIFICATION CONDITIONS ♦♦ 


CEXITO 

MPILSiiMPILSOl 
TP6=TP602 
LOCSTR=L QCSTR02 
SACl .EQ. C 
• IMPLIES. 
•FALSE. 


SPEC 

TPl=TPI04 

TP7=TP705 

CAPT=CAPT04 

SAC2=GUIP3D 


CFO I I 

TP2=TP206 

FLARE=FLARE02 

RLFO=RLFD04 

SAC2*EQ.O 


START=START04 

TP3=TP302 

LOCOC=LOCOC04 

RCMD=RCMO0l 

PCMVLDI=0 


LOCFO=LOCFO06 

TP4=TP402 

YETA=YETA02 

RCMVLD=RCMVL004 


GSFt>=GSFO02 
TPS=TP502 
PSIE=PSI E02 
SACl=LOCFO 


— CONTROL PATH 43 

• cexi TO.SPEC.CFDIS.STAHT=START04.LOCFO=LOCFD06.MPILS=MPtLSOI.TP!=TPt04.TP2=TP206.TP3=TP303.TP4=TP*Q3.TP5=TPS02.TP5=TP50a.TP7=TP70S.F 
LARR=FLAfI6 02.LOCOC=LaCOC04. YETA=YETA0 2.PSlE=PSIE0 2.LaCSTR=l.OCSTfl0 2,CAPT=CAPT0 4.RUFO=RLFD04.HCMD-RCMO0 1.RCMVLD-RCMVL004.GS-0-GSF003.L 

GAMC=LGAMCC 2 * 

LOA FLARE .NOT, ( 4 AC.NE. 0 ) LDA HOCF ADD K 2 

LDA KIO ADO X 7 *R ( S AC+K 7 ) S! MPY TF 

OIV Kg ST A HREF 

^q£XITO* SPEC * CFO 1 5 • STAR T^ST ART r l»— i_ l/uo « nr i w^—nr- •r-i— irAwr.** — - - —r%.^ 

LARF=FLAHE02.L0C0C=LOCaCO4.yETAi=YeTA02,PSie=PSIEQ2.LOCSTR=LOCSTR02,CAPT=CAPT04, RLFD=RLF004.RCMD-RCMDO l*RCMVLO=RCMVLD04 ,GSFO-GSF003*L 

GAMC=LGAMC 02 .HREF=HREF 02 * 


XR( SAC*-K2) X 


• NOT.C SAC.LT.O) 


XABSI SAC).LT.ABS(K8)X 

♦ CEXITO* SPEC. CFP 15, START = START04.LOCFD=LCCFD06,MPILS=MPILS0 1, TPl=TP10 4. TP2=TP206.TP3=TP303 .TPA=T.oa 03, TP5=TPS02,TPG=TP602,TP7=TP705.F 


♦♦ VERIFICATION CONDITIONS ♦♦ 


CEXITO 

TPI-TP104 

TP7.«TP70S 

CAPr=CAPT04 

SACl^FLARE 

SAC5=SAC4fK7 

•IMPLIES. 

RtSAC2+K2) 


SPEC 

TP2=TP206 
FLARE=FLARE02 
RLFD=RLFD04 
.NOT.(SACl.NE.O) 
SMQ1=MULTMI SAC5.TF) 

RISAC44-K7) 


CFO 15 

TP3=TP303 

L0C0C=L0C0C04 

RCMD=RCM001 

SAC2=HDCF 

SAC6=MULT < SAC5 .TF ) 


STARt=START04 

TP4=TP403 

YETA=YETA02 

RCMVLO=RCMVL004 

SAC3=SAC2+K2 

SAC7=$AC6/X8 


LOCFO=LOCFD06 
TPS=TP502 
PSIE=:PSIE0 2 
GSF0=sGSFD 03 
•NOT* (SAC3.LT.0) 
HREFl=SAC7 


MPILS=MPJLS01 
TP6=TP602 
L0CSTR=L CCST R02 
LGAMC=LGAMCD2 
SAC4=K10 


ABS(SAC6) .LT.ABSI K8> HREFI=HREF02 


XR(SAC*K2)X 


t SAC.LT.O) 


CONTROL PATH 49 

♦ CEXITO, SPEC. CFDIS. STAR r=START04.L0CFD=LGCF 006. MPtLS=MPILS0l. TP 1 = TP1 04 . Tp 2=TP206.TP3=TP303.TP4=TP403.TP5=TP502 »TP6=TP6 02. TP7=TPT05,F 
LARE=FLAREC2,LacaC=U0CnC04, Y6TA=YETA0 2.PSIE=PSlE0 2.LaCSTR=LaCSTR0 2.CAPT=CAPT0 4.RLFO=^RLFD04.RCMO=RCMOO I .«CMVLO = RCMVuO04 ,GS-O=GSFt>03 .L 

GAMC=LGAMC024 

LDA FLARE .NO T. ( S AC.NE. 0 ) LOA HOCF ADD K2 

LDA HOCF ADD K7 XRtSAC>K.7)X MPY TF 

R I V KB ST A HR EF * 

»CFXITO,SPEC.CFD1E.START=STARTOA.LOCFD=LCCFD06.MPILS=MPILS01.TPI=TP104.TP2=TP206.TP3=TP303.TP4=TP403,TP5=TP502,TP6=TP602.TP7=TP705.F 

LAHEsFLA«E02.LOCOe=LOCOC04.YETA=YETA02.PSIE=PSin02.LOCSTR=LQCSTR02.CAPT=CAPT04.RLFD=RLFD04.RCMD=RCMDOI.RCMVLO=RCMVL004.G>rD=GSFD03.L 

GAMC=LGAMC02.HREF='HReFO?* 


XABSi SAC) .LT .ABSIKSIX 


• • verification conditions »* 


y -T-r--- 




'4 ii 






TP7=TP705 
CAPT=CAPT04 
SACli=FLARC 
$AC5-*AC4+K7 
* IMPLIES . 

R (SAC 2 +K 2 > 


FLARE=FLARE02 
RLFD=:RLF004 
.NOT. ( £AC| .NE.O » 
$M01=MULTM( iACS.TF) 


LQCQC=LQCOC04 
RCMO=RCMOO I 
$AC?^HO(fF 

S AC6=MULT ( SACS * TF ) 


YETA=YETA02 

RCMVLO=RCMVLDOA 

*AC3=SAC2+K2 

SAC7=SAC6/K8 


Rt SAC4>K7) 


AOS ( t AC6 ) .LT . A8SI K8 ) HREFl=HREFO 2 


CONTROL PATH 50 — 


PSie=PSIE02 

GSFO=:GSF003 

SAC3.LT.0 

HREF1=SAC7 


LOCST«=L0CSTR02 

LGAMC=LGAHC02 

SAC4=H0CF 


*CEXl TO. SPfrC.CFDlS.STARtsST ART04 . LOCFD=L CCF0 06. MP I LS=MP I L SO I .TPl-TP 1 04. TP2=TP206* TP3=TP303 • Tp4=TP4 03.TP5=TP502 »TP6=TP6 02.TP7=TP705«F 
LARE=FLAREQ2 .L0CaC-LQCGC04. YET A=Y ETA 0 2 *PSI E=PSI £0 2 . LOCSTR=COCSTR02*CAPT=:C ApT04 • RLFO=RLFD04 « RCMi>=RCMDO 1 «RCMVLD=RCMVU004 .GSFDsGSFOOS.L 
GAMC=LGAMC02* 

LOA FLARE tSAC.NE.O) 

♦CEX ITO, SPEC.CFOl 5 .STARTsST AHT04 , LaCFO=LOCFD06 • MP ILS=MPIUSO I . TP l-TP 1 04 ,TP2=TP206. TP3=TP3 03 • TP4=TP403 ■ TP5=TP502 .rP6=TP6 02. Tp7= TP705. F 
LARE=FLARE02* LOCOC=LQCaC04 • YET A=Y ETA02*PSIE=PSI EO 2 * LOCSTR=LOCSTR02^CAPT=C APT04 • RL FO=R LFD04 » ftCMO = RC MDO 1 • RCMVLD=:RCHVL 004 * GSFD= GSFD03 .L 
GAMC=LGAMC02. HREF-HREFOa* 


♦♦ VERIFICATION CONDITIONS ♦♦ 


CEXITO 

TPl«TP104 

TP7=:TP70S 

CAPT=:CAPT04 

SAClaFLAPE 

• I MPL I ES • 

HHEF=HREF02 


SPEC 

TP2=TP206 

FUARE=FLARE02 

RLFD=RLF004 

saci.nc.o 


CFO IS 
TP3=TP303 
LQCOC=LOCOC04 
RCMO=RCMDOl 


START=START04 
TP4»TP403 
YETA=YETA02 
RCMVLO=RCMVLO 04 


LOCFO»LOCFD06 

TP5=TP502 

PSIE=PSIE02 

GSFO*GSFD03 


MPILSaMP lUSOl 
TP6=TP602 
LOCSTR=LOCSTR02 
LGAMC=LGAMC32 


CONTROL PATH SI 

• CEXITO. SPEC.CFOl S. STARTS STAR T04.LQCFD=LaCFD 06* MP lLS=MPlLSOI .TPtsTPIOA.TPa^TPaOS. TP3= TP303 * TP4=TP4 03. TP5=TP502 *TP6=TP6 02.TP7=TP705»F 
LARH=FLARE02 .LOCOCsLOCOC 0 4. YETA=VETA0 2.PSIE’=PSlE0 2.LOCSTR=LOCSTR02.CAPT=CAPT04.ttLFD=RLF0 04.RCMO=RCMOOl*RCMVLO=:RCMVL004*.GS = 0=GSFD03*L 
GAMC=LGAMC02.HREF=:HHEF02* 

LOA HKAO XA11S( SAC) .LT. AOS ( HREF) « OIV HREF STA KFLR SUO MSKLtS 

XR(SAC“MSKLIS)X .NOT • < $ AC . GE . 0 ) LOA SET STA FLARE 

• cexi TO. SPfcC. Croi S .start =ST ARTO'V. LOCFO=LGCF006,MPILS=MPIlS 0 I . Tp 1 = TP104.TP2=TP20 6. TP3=TP303. TP4=TP4 03. TP5=TP502 »TP6=TP6 02.TP7-TP705.F 
LAREtsFLAREO3..LnCOC~LacOC0 4, YcTA=YErA0 2. PSrE-e»SIE0 2.LOCSTR=LOCSTR0 2.CAPT=CAPT0 4*RLFO=RLFO04 .RCMOssRCMOOl .RCMVLO=RCMVLD04 •GS=0=GSF003»L 
GAMC=LGAMC0 2 .HREF=:HREFo2.KFLH=KFLR0 14 


•• VERIFICATION CDNOITIOMS ** 


CEXITO 

TPI~TPi04 

TP7=TP70S 

CAPT=CAPTQ4 

HRFF=HRLF02 

*AC4=SET 

. 1 MPL I E S . 

A0S(tACli.LT.ABS(HREF) 


SPEC 

TP2=TP206 

FLARE=FLARE02 

RLFO=RLF004 

SAC1=HRA0 

FLAREt=$AC4 


CFO 15 
TP3==TP303 
L0C0C=L0C0C04 
RCM O=RCM001 
SAC2=SACI/HREF 


R($AC2-MSKH5 ) 


START=START04 

TP4=TP403 

YETA=YCTA02 

RCMVLO=RCMVLD04 

KFLRI=SAC2 


FLAR£l=rFLARE03 


LOCFD=LOCFD06 
TP S=TP502 
PSie=PSlE02 
GSFD=GSF003 
SAC3=SAC2-MSKH5 


KFLR1=KFLR01 


MP1LS=MP ILSO I 
TP6=TP602 
LOCSTR=L0CSTR02 
UGAMC=LGAMCD2 
•NOT. ( SAC3.GE.0 ) 


CONTROL PATH 52 — 

•CEXITO. SPEC. CFO! 5 .STaRTsST ART 04 . UDCF0=L0CFD06 . MP I LS=MPILS0 I . TP1=TP104.TP2=TP206.TP3= TP303, TP4=Tp403. Tp5=TP502 iTP6=TP6 02. TP7=TP70S.F 
LAREsFLA RE02. LOCO C=LOCOC04. YET A=YETA 02 . PSIE=PSI EO 2 • LOCSTR=LOCSTR02.C APT=CAPT04. RLFO=RLF004 . RCMO=RCMOO I .RCMVLD=RCMVL004 .GS=^0=GSF0 03*L 
GAMC=:LGAMC02.HREF=HREF02* 

LDA HRAD XA0S( *AC ) .LT.ABSIHREFIX DIV HREF STA KFLR SOB MSKL15 

XR isac^mskl ts)% (sac.ge.o) stz flare 

• CEXITO. SPFC.CFD1S.START*ST ART04 ,LOCFO=LCCF006.MPILS=MP1LSOI.TPI=TP104.TP2ssTP 20 6* TP3=TP303 * TP4i=TP4 03. TP5=T P502 *TP6=TP6 02. T P7s=TP705 .F 
LARF-FLARFOB .LOCOC—LOCOCOA • yFT EfA0 2.PSIE - PSI £0 2. LOC5TR=LOCSTR02. CAPT—CAPTO 4. RLF0=RLFD04 .RCMO^sf^cMOO t .RCMVLOsRCMVLOOA •GS'=^Ds=GSF003.L 
GAmC«LGAMC 02. HREF = HREF02.XFLR=iKFLROl ♦ 

• ♦ verification CONOITIONS » 


8 ? 

Frt 


CEXITO 

TPl=Tf>JPA 


SPFC 
T£» Jr 


CFOIS 
TP t 


START=:START04 

T •»?«,- T*-* r- -» 


LOCFO=LOCFnoO 


MPiLSssMP ILSO I 


MR6F=:HReF0 2 $ACl=HRAD 

FLARElssO 

•IMPLIES, 

ADSCSACl ),LT,ADS(HPEF) 


SAC2-iACiyHREF 


RI$AC2-MSKLISJ 


KFLRl=SAC2 


FL A RE I =FL AR EO 3 


SAC3=SAC2-MSKL15 


KFURl=KFLROI 


SAC3«GE* 0 


control path 53 

tCEXlT0,SPEC,CFOl5,START=START04.L0CFO=LaCFD06,MPfLS=MPFLS0l.TPl=TP104,Tp2=TP 206. TP3=TP303 t TPA=TP4 03, T P5=Tp502 .TP6=TP6 
LARC=FLARF0 3.LOCOC=LOCOC04. YET A=y ETA02.PS IE =PS I EO 2, LOCSTR=LOCSTR02.CAPT=CAPT04.RLFD=RLFD04 . RCMD=PCHDO I ,RCMVLt>-RCMVLD04 
GAMC5^LGAMC0 2.HnEF=HREF02* KFLR=KPLROi ♦ 

TRA SRLMT %R< SAC424A8) X SAL 8 MPV Tp* 

LOA AO SU0 LGAMC XABSl S AC > .LT. A0S IT AU5 ) X 

LOO LTMPR TRA SRLMT MPY DELTAT AOS LGAMC 


02.TP7=TP705.F 

♦GS=D=GSFD03.L 


LOO MSKL15 
• NOT . (SAC.LT* 0) 

SAR 3 
STA GAMCMD 

♦ CEXITO.SPEC.CFDIS.START^ST apT 04 , LOCFO=L eCFD 06 • MP ILS=MPILS0 i .TP l=TP 1 0 4.TP2=^TP206. TP3=TP303 . TP4=TP4 03 . TP5=TP50 2 •TPS-TPS 

LAHE=f-LARE03.LOCOC=LOCUC04, YErA=YETA0 2,PSIE-PSIE02.LDCSTn=LOCSTR02.CAPT=CAPT04,RLFO=^RLF004 ,RCMD=RCM001.RCMVLD=RCMVL004 

AMCMD = 6AMCMD01 • HRFF=HREF02» KFLH=KFLR01 ♦ G AMM AC=G AMMACQl .LG AMC=LGAMC03* 


LOA KFLR 
SOD K4 
DIV TAU5 
SUO GAMMA 


02^TP7=TP705.F 
• GS=D=GSF00 3.G 


VERIFICATION CONDITIONS ♦♦ 


CEXIT 0 
TPI-TP104 
TP7=Tpr05 
CAPT=CAPT04 
HREF-HRFF02 
SM02-=MULTM{ 4AC3 
SAC8=SAC7/TAU5 
*M04X MUL TM ( SA C I 
5AC13=N( SAC12-G 
. IMPLIES. 

R( »AC2424*8) 


SPEC 

TP2=tPa06 
FLaRC=FLARE 03 
RLFD=RLF004 
KFLR^KFLROl 

• TP4) SAC4t:MULT(SAC3,TP4) 
SAC0=5AC5/24^3 
O.DELTAT) 

AMMA) GAMCMOl=IAC 13 

ASSCSAC7) .LT.ADSt TAU5) 


CFO 15 . 

Tp3=tP303 

L0C0C=L0C0C04 

RCMD=RCMOOi 

SACl=KFLR 

SAC5=NtSAC4~K4) 

‘5Ma3=LIMPR 


START=START04 
TP4=TP403 
Y£rA=YETA02 
RCMVLD=RCMVL004 
SMQI=MSKLIS 
•NOT. (SACS. LT.O) 
SAC10=SRLMT(SAC9.»MQ3) 


L0CFO=LOCFO06 

TP5-TP502 

PSIE=PSIE02 

GSFD=GSFD03 

$AC2=SRLMTtSACl .SMQl ) 

SAC6=A0 


f^ILS=MPILSO! 

TP6=TP602 

LOCSTR=LGCSTR02 

LGAMC=LGAMC32 

SAC3=SAC242**8 

$AC7=N ( $ AC6*LGAMC ) 


SAC11s=.MULT<JAC10.PELTAT) 


SAC12~N(SACl l+LGAMC) LGAMCI=SAC12 


GAMCMD I -=GAMCMDO I 


GAMMAC^GAMMACO I 


LGAMC1=LGAMC03 


control path 54 

♦ CEXITO. SPEC.CFD1S,START=STAHT04.LOCFO=LQCFDQ6.MPILS==;MPILS01 .TP1=TP104.TP2=TP206.TP3=TP303.TP4=TP403. TP5=TP502 .TP6=TP6 02, T P7=TP705. F 
LARF:=FLARE0 3.L0C0C=L0C0C04< YFT A=Y ETAO 2 • P SrE=P SI E02. LDCSTR=L0eSTR02. CAPT=C APT04 • RLFO=RLF004 . RCMO=RCMDO I •RCMVLO=RCMVLO04 •GS=0-GSFD03*U 
GAMC=LGAMC02, HREF=H«EF02.KFLR=KFLR01 ♦ 

15 TRA SRLMT XR(SAC42*4B)X SAL 8 

STA GAMMAC add GSA ADO GSA 

XAQS( SAC) .LT.ASSI TAUSiX OIV TAU5 

MPY OELTAT ADS LGAMC SUB GAMMA 


UPA 

KFLR 

LOO 

MSKL 1 

SU0 

KA 

(SAC 

.LT -0 ) 

LDA 

GAMMAC 

SUH 

LGAMC 

LDO 

LT MPR 

TRA 

SRLMT 


MPY TP4 
•NOT. ( SAC.LT.O) 
SAR 3 
STA GAMCMO 


• CEX I TO. SPCC.CFDIS .STaRT=ST APT04 . LOCFO^LOCF 006 . MP I LS-s^MPlLSO I . TP l-TP lO 4.TP2-TP20 6. TP J-TP30 3 . TP4-TP4 03 ♦ TP5-TP502 .TP6= TP6 02. TP7- TP7 05.F 

LA4 = Kl-At)t.03.l-OCaC=LCC0aj4.rtTA=YeTA02.PSIC = PStHQ2.UOCSTR=l.OCSTRO2.CAPT=CAPT04.RI,FD=RUFO04.RCMD=RCMD0l.RCMVLD=HCMVLO0«.SS-"D=GSFO03.<; 

AMCMO^GAMCMDO I . HRFF^HRFFO?. iCFLK=KFLRO I . G AMM AC=G AMM ACO I .LGAMC=LGAMC034 


44 verification CONDITIONS 44 


CEXITO 

TP1-TP104 

TP7=TP70S 

CaPTs=CAPT04 

HREFsHRFFOe 

SH02«MULTM(SAC3.TP^4) 

SAC7-N (SACO 4GSA ) T 

SM03=LIMPR 


TP?-TPP06 

, FL A'i? ARE03 

PLi- iJ- 't ^ Ij 04 
Kti - ' / ' i m 

■UA< * - I |iAC3.TP4) 

• N ’ ( • I ■;» A L. 7 • L T • 0 J 
•i-ACilF-S'iLKT (SACl 1 


SACi3 = MULtCSAC12.i5£LTAT) 


CFO IS 
TP3i=fP303 
LOCOC=LQCOC04 
RCMO=RCM001 
SACls-KFLR 
SACS-sNlSACA-KA) 
$ACa=GAMMACl 
SMQ3) 

SACI4-=sN(SAC134-LGAMC) 


START=START04 

TPA5STP403 

YETA=-YETA02 

RCMVLO=«CMyL004 

lMai=H5KLl5 

SAC5.LT.0 

SAC9=N ( SAC3-LGAMC ) 


LOCFDSLOCFO06 

TP5=TP50 2 

PSIE=PSIE02 

GSFD=GSFD03 

SAC2=SRLMT(SACl,SMQl ) 

GAMMACIJ=SACS 

SAC10=SAC9/TAU5 


SMQ4=MULTM< SACI 2 .DELTAT) 


MPILS=MPILS01 

TP5=TP602 

LOCSTR=LacSTR02 

LGAMC=LGAMC02 

SAC3=SAC2*2448 

SAC6=N(SAG5+GSA) 

SACU = SAC10/2**3 


LGAMCI~SAC14 


SAC15=N( SAC14~GAMMA> GAMCMOl=SACl 5 


• IMPLIES. 
RfSAC242448 ) 


AOS( SAC9 ) .LT.ABSITAUS) 


GAMCMD1=GAMCMOO 1 


GAMMAClssGAMMACOI 


LGAMCl=LGAMC03 


CONTROL PATH SS 



c^m:c=«m;aco. ^crd^pcmdo; k;^:r:kpero.- oamcho=gahchdoi s*c.=gsvld 

•NOT* tSACl-BO.Ol 5AC2=RCMVL0 PCMVL01-SAC2 

•implies. 

•false. 

CONTROL PATH SB 

CAMC-LGAHC03. HRFF=:HREF05»,GAMMAC=GAMMAC0 I .PCMO-PCMOOX.KFLR-KFLROI.GAMCMO-GAMCMDOI^ 

LOA GSVLO ISAC.EQ.OJ ST2 PCMVLD 

♦. FALSE. T 

• * VERIFICATION CONO ITTONS 


RCM D=RCMDOl 
PCMD=PCMD01 
PCMVL0l=SAC2 


RCMVL05=RCMVLD 04 

kflr^kflroi 


GSFO=GSF003 
GAMCMP=GAMCMOOl 


LGAMC-LGAMC0 3 
SACI=^GSVL0 


CEXITO 

TPI=TP104 

TP7=rp705 

CAPT=sCAPTQA 

HhRF=HRFF02 

SiACl-EQ-O 

- I mplies . 
•false • 


SPEC 

TP2=TP20S 
flare=flareoj 
RLFO=RLFD04 
gammac=gammaco I 
PCMVLO 1=0 


CFO IS 

TP3s:TP303 

L0COC=LQC0C04 

RCMD=RGMOOI 

PCMO=PCMOOI 


START=STAPT04 

TP4-TP403 

YETA-YETA02 

ftCMVLO=RCWVLD04 

KFLR=KFLftOI 


LOCFD=LOCFD06 

TPS=TP503 

PS I E=PS I EO 2 

GSFO=GSFD03 

GAMCMO=GAMCM001 


«PILS=MP ILSOl 
TP6=TP603 
L0CSTR=L0CSTR02 
LGAMC=LGAME03 

saci=gsvlo 




THHoCEH Mi&i2Agr - — : 

INT ♦THM*RL*SET • 

♦ *•*♦*♦*♦• I NT 5 r tJ • M • N • P • o» R* o 

*#♦*♦♦♦» ♦♦THM ; A *B • C* D*E 

RL S O • P • Q • R • U • V • W « X • T » Z 

*nnTHE*STAPT^”lN FRONT OF A THEOREM INDICATES THE THEOREM CAN BE 
;**f:<f»p»RQVEO BY USInG other basic THEOREMS. 

♦ ♦•♦♦THERE APE 2C 2 THEOREMS? 

♦ •*♦♦54. theorems can be proved by using other basic theorems. 

AHn»HpMQ> = ( P.EO.Q) and AB3R21A»B) = ( A.EQV.BJ ^ 

:t:n "^^0^05® is THF0«EMS; it means that P is the ABBREVIATI^ of 
arithmetic expression q or a is the aos«eviation of boo^^^ 
expression dip And a should be identifiers different from n 
VARIABLE USED IN THE CONTROL PATH TO BE PROVED). 


abbrievaTions 


ABBR 1 (P. Q>=(P.EQ‘D > 

A0DR2(A.B)=(A.EOV.8) 


MODK I . J) = J-GT .0,1 .GS.O.IMP.MQPII ,J) .GE.O 
M002( I.J)=J.GT.0,I .GE.O. I MP. MODI I . J ) .LT . J 


MQD 3 U .J >=J*GT.O. I .GE.O.IMP.MOOI I .J) .EQ.r-I/JAJ 
*MDOA( i . JI = J.GT .0. I.EO.J.IMP.MOOI I.J) .EO.O 
• Moosi i)=t .gt.o.imp.mooiq.i ) .so.o - 

M0D6I I.J .X) = MDDII . J) .EQ.O.K.EQ.J. IMP .MOD U+X. J ) .EO.O 

♦MOOT t 1. J 1=1 -GE.O. J.GT.O. IMP .MODI l»J.J) .EO.O 


ABSOLUTE arithmetic 


A8SI<P) = A|3S(p».G£.P 

ADS?< P.O )=A0S( P-0) .LE. ABSTP > »ABS( Q) 

ABSTIP.O l=ABS(PTOS .LE.ABSIP ) FABSI Q) 

A 0 Sl» », P . O »= A O'? t P 1 -A OS < ° ) . LE . AB S ( P ) ♦ AB S < Q ) 


inequality AND arithmetic 


aaeogeu I 

*aE0GE2C 
AE0GT3IP 
•AOLTl r I 
»aDLTI ( 1 
aolelti ( 

• age I I Pt 

AGF2(P,0 
AGT t ( p . q 
»AGT2I P. 
•AGT3(P. 
AGEGT 1 ( 1 
ALELT 1 ( I 

♦ ALT J ( P. 

»AI I'- IP. 


P.Q.R. D)=P .GE.O "R *110 *0 .IMP. P+R.GE.O+Q 

P .Q ,R .0 i=P .GE.Q.R.eo *0 .imp.rtp.ge.ot^q 

’ ,Q.R.D> = P.GT .Q.R .EO.O. IMP *P*P»GT .Q«-0 

,J )=I .LT. J .IMP. ( IFJ) /2.LT . J 
, J )P I .LT. J . I MP . 1 1 >J >/2 .LT .J 
t . J )=!l .LT. J. IMP. I .LE . ( I+J >'''2 
, 0, R. O ) = p. Gfi.Q.R, GE.O. IMP. PTR.GE. 0+0 
) .R . 0 ) = P. 6T .0 ,« • GE .0 . 1 MP.P +R • GT . Q+Q 
1 .R.O ) iP.GT .a .R .GT .0 . I MP .P +R " GT . Q +0 
, C.RMP.GT .Q.EOV.P+H .gt .Q+R 
. a.R)=P.0T.Q.EOV.R+P.GT.R+O 
[ ,J) = I .CE.J.EQV.I + l.GT.J 
I.J)=t.LT.J .EQV. I +1 .LE. J 
, Q.B .0 I sP.LT. Q. R -LT.O-I mP.P+B .LT.C+O 

: ^ T » ^ ’J » ‘ >+* ’*■ » 








AN03( A *R )*A*B •IMP 

AN04 ( A*B )=A. 0« IMP • A. AN0*B 
AND5( A*a )=l A*B) • IMP* A y 

AND6I A*li )=CA*B) *1MP*0 - , 

ANOT ( a ) — a • AND •A^IMP^A «fcirk/* 

AND IMP 1 t A.O.C) = (A* IMP'S ) .C-IMP-I A.AND.C. IMP.B 

AOltA.B.C)=A.OR.O.C.EQV.(A.C).QR.(B.C) 

lMPl(A,0)=<A'IMP.B).A.IMP-B IWP.C) 

,up2(A.B.C)=(A.IMP.B>.ta.lMP.C).lMP.(A.lMP.CI 

IMP3(A.B)=IA.1MP.B)..NOT.A.IMP..NOT.B 

,MOl(A.B.C>=A.Ctt.B.iA.IMP.C).IMP.C.JR.B 
.IM0B<A.B.C)=A.0R.B.(B.IMP.C). MP.^ 

,„Al(A.D,C) = (A.a.lMP.C».A.?MP.(a.IMP.i;> 

OR l< A .Bt =A • IMP .A.OR* B ^ 

DR2tA»B)=0'lMP.A.aR.B 

aR3tA.B)=A*QR-B-EB''’B*BR* A 

OR A< A > — A 'OR • A .E Oy • A 

ORS I A ) =A -OR • 'NOT • A 

0R6(A)=A .OR . .FAL.se . • IMP'A 

EQVK A.B)=A.«A.EQV.B I.IMP.B 

eovsl A. D )=B. < A.ECiV .B > .IMP.A 

lov3( A.O )=(A.EOV.a». .NOT.B.IMP..NOT.A 
eOVAi;A.B)=(A.EOV.Bt, .NOT.A.IMP..NOT.B 

NaT3(A.fl)=.NOT.A.OR..NOT.B.eQV..NaT.<A.AND.8> 

NOT4<A) = A.EQV..NOT.( .NOT.AK 

NOTOP1(A.D)=.NOT.A..NOT.B.IMP..NOT.CA.OR.B» 

PE I ( A )=A • *NOT. A vaIMP* '^FALSE* 


ARITV4METIC 


APTl<X.Y)=A.CE.O.y.SE.R.rMP*B‘'^~'*'* 

APT2( X) =AESS( X I . GE .0 
APT3( )Fl CO .023.GE .0 
A1 (P.O )hP«O.EO .Q+P 

A2IP.O.B > = <P+“>+B.eQ.P*«0*R’ 

A3(P i=P+Q.Ea.p 

* aA (P )=Q+P. f O.P „„ „ 

• A5(P.Q.R> = P*-R.EO.B*R.eO''*P'^°*° 
a6(P>=P*P.EQ.?.*P 
AMKP.O.R)=P*(0*P> .E0.P*0*P»R 

* AM? r P issP*EQ *0 «EQV .“P-HO *0 

.AM3(P,0)=Q.NF..O.IHP.IP*0'''B-I*E°-'’^“ 

*A«A(P.Q.R)=<P»QV*H.eO.P*RFO*R 
AS 1 1 P . 0 I =P*B .P* I “B I 

AS2( P . 0 I ^^“PYO . LO.B“P 

AAS3(P.Q .R>-P'-0-P’^B''’^‘®"“! 

*AS4tP.°.R>=P“°*^"®B*-“‘°~” ! 

* AS5< P .B "R I-P”B’-R. BO .P"*0'''B * 

ASBCP. Q.P>fP-0-R.FCI.P-‘P“° 

«ASUB1 (P.Q»=P‘-B"B.BB.P 
n t (P I =P . NE . B . t MP.P/P .EQ. I 

D2tP.0rB )pR.NE.Q.1MP.<PFQVR'EQ.P''P'-B^R 






E K3tP )=P'**l .EQ.P 
M01(P,Q)=O.NE*0-IMp.P*Q/a*EQ.P 
MUICP.Q J=P^Q.EQ .Q*P 
MU2(P,Q. WN( P*Q>*R-eQ.P + rQ*R) 

PU3(P >=P*l -EQ*P 

PU4i P,Q, R)=R.NE.O, P*R.EQ.Q*rR.IMP.P.EO.Q 
♦MU5(P)=P*0-E0.0 

MU7(P,Q, R)=R.GT.O.p*R-GT.Q*P.IMP.P.GT.Q 
•MU6(P)=04P«£Q.0 

MUeCP,Q,Rt=;R*GT.O.P*R-GE-QfP*lWP.P.GE.O 
MU9(P.Q* R)=n.6T.0*R*P.GT.R*a^lMP.P*GT«Q 
MU 1 0 ( P • 0 .R > • GT • 0 • R *P . GE .R *Q . IMP *P . GE ii Q 

MUn ( P*Q *P) = R.LT.O •P*R«GT -Q^P . IMP.P.LT .0 
MU12(P»Q •R>=:R .LT.0 tP»R *GE • IMP .P. LE. Q 
MU13(P.0^R»=:P,60«Q,|MP.P*R.EQ,6+R 

MUIAC P .0 •R«0)=P«GT.Q*Q«GT.O «R«GT« 0» 0 • GT • 0 • I HP*P«R*GT •Q«0 

SMUPfO) =(-P)*Q.EQ.-P*0 

NCTUPtQ )“.N0T.P.NE-Q.EQV#P.EQ.Q 

SUBUPisp-P.EQ.O 

*SUB2<P, QJsP-O.EQ.O.EQV.PhEQ.O 

SUB4<P)=P-0«EQ.P 

SUQ51P )»0-P^EQ«-P 

SUB^(P«Q )=:P«EQ.Q«£QV .«P-0«€a *0 


EQUAUtTY 


EQlCf>>sP*eo»P 

EQa(P.0)=P«HQ.Q.EQV.Q*EOip 
EQBiP.O. RJsp.EU.O.q-EQ.R. tMP.P.EQ.R 
EQ4tP*Q*R)AP.EG.O*R.EQ*O.I.MP«P.EQ *R 


FLOATING POINT ARITHMETIC 
FLl ( )=FM IN.GT .0 
FL2C )=FMAX.GT.O 


GREATEST COMMON DIVISOR 


GCOl ( i • J )=I .0-T .O. J .GT.O. J-I .GT.O* lMP»GCOU « Jl •EO.GCOI I. J-!) 
GC02 i I r J )x 1 • G r .0 • J .CT • 0 . I MP • GCD( I . J ) *EO • GCO ( J 1 1 > 

GCD3( I I.GT.O. IMP.GCDI I • U .EQ-X 


SUBSTITUTION 


♦ SUUP*Q.R.d>=P.EQ*0*R.EQ, 

• SU2IP*Q •R.QJ -P.EQ.O.R-EQ' 
♦SU3(P*D •« *□) sP.Fo.Q *R.ca. 
SUBST I (P .q*R,A(R) .CO.O. 
SUBST2(P .Q.R* A(R) )^P.EQ.O^ 
£U0ST3( A .S.C^DI C» A-EQV. 
SUB$T4 ( A .8 . C • D { C n = ( A .EAV , 


0 . I MP - P ♦-R* SQ • 040 
0 ^ IMP.P*R.ECi.040 
0 .IMP.P-R*F<5.0-q 
A(P>«XHP*A(Q) 

A(0 > .ImP^ACP) 
HI.DtAJ .tMP.D(B) 
O) *D(B) .IMP.Di A1 


U n . J T-GT - t .rriv , ( r , - M 1 





S*«l .J .S.1_.A(U>)=I .INSIDE.S.EOV.AM ) .INSIDE .sen IN. S) 

S5tI.J.K,S<L.N(L>)=ei(K.lN.S,I .EO.NtK>).EOV.t.INSIOE.SeTINJJ>.J.lN.S) 

S6(T.J.K.S.L.NtL))=I . I NSI OE .SET( N < J > * ^ ‘ ‘'J j 

S 7 a.J.K.S.T.L.A(L))=EI<I.IN.S.A(n).(A( JJ.IMP.J. INSIDE. T).IMP.EI(K.. IN. T.A(K)1 

.IBI I i J .L .A( L) l = A< J ) • IMP. ( A( I ) • I . t N.( J . . J ) ) . . 

S9(l. J.K.L.A(L».M.B(H) )=lA(n.I.IN.S).'.A(J).IMP.Q(JI).IMP.(B{KI,K.IN.S) 

SIC(I.J.K.L.A(L))=J.GT.K.IMP.FI(I.J.LE.I.AND.!.LE.K.IMP.AII)1 

SICA( I .R .A(HJ ) =FA( I. IN.I ).A( 1 ) > 

<; 1 1 < ! . J • K.) =1 .OH . J • I . LE .K . IMP . I . INSS 06 . < J . .K ) _ 

SIZII .J.S.T.M.N.AIM.N)) = (AU.Ii.I .IN.S. J.IN.T).eQV.<(A(J.n.I.IN.S).J.lN.TI 

M2A(;.j.S:T.M.N.A<M.N)) = (A(l,J).I.lN.S.J.lN.T).E0V..fA(I,J). .IN.SI.J.I^ 

SI3U .J,S.T.M.N,A(M.N))=(A(J.I ).I .IN.S. J.IN.TI.EQV.(A(J.n.J.IN.T,I.IN.S> 

SIS! I . J. t. A( LI )=( A t I >. I . IN. tJ. .J) > "EG .A ( J» ^ 

S16« 1 i J*L. A(U) IPA( J) .IMP.FI <1 .J.EE. I .AND. I .LE . J . I MP . A I I ) I 
S 17( 1 • S. A ( M) )=At 1 1 . I MR. ( A( 1 1 • I • IN .5 I 


•IF* expression 


IFld . J.K.AJI 
IFEI I . J.K.A ) 
IF3( I.J.K.Ali 
I FAI l » J . K. A I 
IFSI l .J.K.H* 
IFSI I *.!• X. M* 
IF7t I . J.K.M. 
iFelK. J. I.M. 
),J.IN.S)).( 
1F9< A .O.P.O. 


st=( . IF. A.- 
;=t = ( .IF. A. 
s laJ.A .IMP 
i=I=K. ^NOT. 

A(R) ):*.1F. 

,D(M) .FtM J. 

, 0 ( M I , P IM ) . 
iDlMI.PIM). 

; (( .IF.BI I) 
,R.SI = P. 6 Q. 


-THENiJ.ELSE.X) .A.IFP.I-J 
iTHEN. j.Else.ki . .N0T.A.1MP.I=X> 

I.l=< . IF.A.THEN. J.ELSE.KI 

. A. IMP .I«< .IF.A .THEN. J . ELSE.KI 




UNION AND INTERSECTICN 


UNlaNluT3rx7lUI2.Jl.J2.L.A(L>)-FII I-H-LE.I.AND.T.LE.l2.IMP.AItn.FI(J.Jl.LE.J.AND 

ND.X.LE . J2. IMP. AIK ) ) 

UNIONS! I .J.Kl=I.LE.J.J.UE.<.IMPd I..J-I ) .UNiaN.IJ..K).EO.II..KI 
UNIONS (I ,J.K) = I.LE.J.J.LE.K.IMP.( J. . K) .UM ON . II . . J- 1 > .60 . I I . .K > 

INSTU I , J.K.LI-K.LE.L. J.LT.K.IMP. II. . J) • INST. IK.. U) .60. I ) 


. J.LE. ja.IMP.AIJ) >.12.E0.JI-1 .INP.FIIK.II.UE.K.A 


summation 


ABSLTLEi IP.O.R.S>=A 0 S(P>.UT.O.ABSIR) .LT.S.IMP.ABSIP)»ABSIR).UT,Q*S 
ABSSIP.O )=ADS(P»03=A8SIP)*ABSIQ> 

ABSSIP.Q )=P.EO.O.lMP.ABSIPi .EO.ABSlQ) 

ABS7T P .0 )PP' .LT .0. P .OE .0 . 1 MP . ABSIP I .LT . ABSl Q ) 

ABSB< P.Q (=P.LT.O.Q .GE. 1 . I MP.P/Q.LT.Q 
ADSPIP)=P.GE.0.IMP.ABSIPI .EQ.P 

ABSIO-I P. C)=Q.NE.e. IMP.ABSIPAOI .EO.ABSIPI/ABSIOI 

A flS ! I I P • Q I "O . LE .P • 0. OF .0 . I MP . O .LE . ABS I P i 

ABSI2 I P . O) =ABB( P ) .LT . I .«0 ,0 • GE . 1 • IMP. ABS IPV/0 .LT . I .BO 

AOSII ( P . Nl "•AP'i ! r>*<i ) ' 31 


a® 

s£q 


ABlirtp!G)=pleclQ!Q.GE.O.IMP.A»StP^ 

AEQLEUP.O.R.S)=P.Le-0-«-“;®; ^ ^„.le.q+s 
M-E i ( p . 0 .R . s j ■ imp .p^r -et .q*s 

ALTL61'P»G*R*®’“ • p f42X. ( A. ANO. .NOT»B ) 

ANDNOT 1 1 A . B ) =A . AND .H . I MP . . I A 

AN08(A.B)pA.ANO.B.IMP.A 

AND9( A .0 )=A.AND -B . 1MP«Q i t . 1 .BO .1 MP -0 1R( P*S) 

hr.;r.:;r.;::K;;“;j:2 S 

;rur.;s:r,;i5Kf.; S s:i;" 

“Si;': 

IR3(I«JJ J ’ ..j.a<j).lMP.R< I> 

Jp^tpl^ABsipl^LT.i.BO.^MP.RJP^ 

LeGHUP.D.R‘S) = P.EE.Q,R.UE.S.P^^^^^^^^^^^_^ 

UEET4«P.Q.P.S>-P/0-E;r- •|_^^_jj^q^ne.o.,„p.p/s.et.r 

tlBrxlv:“:S;=i-E^ --^•“•r^lE^tr.GEto. 1MP.R^R-T.0*S 

o.R.s.=P;EJ:0;R^ 

MULTI (P.Q) = RULTlP.QI-Ea*P*“^_g^,j^p^p,p.LT.S 

rLTirp:G;=MUL;<;«s<p; .aes. q> > •e°;«s<mult«p.o. ^ 

MULTA<P.O.R) = AHS(PV.LT.R.A0. Q 

NEUrUP,D)=R*LE.Q|^P-Ne-G-WP|°;'^^;%.,„p.*aS»N(P-Q)>.LT.^ 

:;prrp:o;=;B;rPT!LTU.sBVAB3ca^ 

MEsip.O)=ABB<P;.L;.C.5B0.AHS O,^ 

MPg,p.Q,=ABStP)-LT^T^S»^;_,^^„.,„p.ABS(N<P-0». = ABS(Q) 
NF7lP.O)=P*eO«Q*ABSl , A. AND. -NOT.B S 

M0TAND1(A,8)=D.I«P..N0T.(A.AN^ 

pjOTEaGTi 0.IMP-*N0T*P-e0*0 

NOTeaA(P.Q> = -^°T‘^”°;^g;.Q),p.GE.Q-«MP-F-GT.O 

NOTGEGTMR.Q'-'NOT-t _ x.Q 

N0TG61(P.Q>=*f<BT.lP.0e.Ql--^^^^^_^ 

notgeziR"D>='’*'=''‘®'®p o‘^qv..not.p.ot.q 

NQTGE3<P.01 = XNOT.P.G6.0.LOV^^^^^ 

NBTiTr.ri tP.*n^.K«T.P.l T. 1- 







L. 


■NOTORAf.Dt.A.6)=.NOT.«A.QR.«..tOV..NOr^^^ • ANO . .NOT. B 

NOTORANOa(A,B»=.NOT.B.lMP..NOT. A.ANO.B 

NaTORANDatA.e)=.NOT.A.IMP..NOT.iA.ANO.B) 

N1(P1 = N< P> .<-fi • I .BO , 

N2tP )=ASS(N(P ) 1 -1-T.l .BO _ _ 

|?1 3t I • J t K*L » M* A( M ) )- A( » pt/i I N. ( C* • I I ♦ I •EQ« ^ 



*SeTl(K.U.S.H.N.A(M.N»^=‘*‘|J=*'^^;'^;‘^;J’;'j;^'J';^.jN.<j..J».K.IN.«l-..U)) 

»SET2( t .J.K.U.M.N. AC M.Nl • -A» ^ 


U 


vJ 


theorems NOT YET JUSTIFIED 


PH I ( I . (C. U( = < I 
PR2C I J = I .ST .0 
PR3C I • J) =MQD( 
PR4C I , J .KiL»=; 

I-U) 

PR5CI , J .K.LI = 
Bsa t )= ( c FA( I 1 

NE.AC 4* I I ) ) > • 
0S3 ( ) = C t FAC II 
NE.AC 4» t I ) ) 1 • 
SBA ( 1= ( I FAt II 
NE.AC 4* 1 1 > > * 


T^. . ■ TM .1-1 1 ) .EQV.PRIMEII > 

.NE.K4L.K.IN.C2..1-1 I.U.IN.C2..I 

;!:';:Br.o?j:c.r.2t"oT.o.j.j.uE...iHP..NOT 

.0DCI.J..NE.0.CI.I..K.I..K.IN.C2..J . .. ..,_...,......J4..4.JFI,.0T.I..MP.PRIHECn 


,IZ..J).C-.IN.f2.. 


MOOCI.JI.NE.O.CI.NE.R*1-.K.1N. 2.- • • jUI.GT.t.IMP.PRIMECI) 

.OO.:.J..NE.0.I.aT.0.J.CE.2.CI.NH.KFU.K.IN.C2..J^^^^ 


.IN .(0. 
.IN .10. 
. IN .(0. 


,(N-l » ».*• 
.(N-l> >.*• 
.IN-1> >•»• 


.J 


j 


sJ 
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OF POOR QUALITY 


V* 


USER DEFINED MACROS --- 




CCRUZFD=CFOINl .OB . <CFD2. AND.UOCF003=0 » 

CFOINl=( TMEFLG.NE.O) .ANO.Tl CRUZFO 

T1CRUZFD = (AND(PCUMWO.T12)=0).OR.( ILSON=0>.OR.|GRUND.NE.6| 

CF01 = CFD IN2 . I 

CFO I N2 = ( TMEFLG .NE • 0 ) .AND. ( .not .T1 CRUZFO ) 

CF0IN3=CFO IN2 .AND . START=0 
CFD3-CFD IN2.AN0 .TF03 

TFD3=(AOS(YElAOl)-LIMLQC.l.T.OI.OR.NIABS(FSie01>-DEG2I.CT.Q- 
CFDA = CFOIN2.AND.<TFD3.DR.(GUIO2O=0)l 
CFOA2=CFCA .AUO.LBS.NE.O . AND.UOCF003=0 ' 

CFD2F< CFD4 .ANO.(L0S=OJ ) ^OR. { CFDIN2.ANO. ( .NOT . TFD3 > . AND.< CUI02O.NE.0 > > 

ClANOFD^ •'^'^'■'■ •CFOINI . AND.CFD2.AN0.L0CFO03 .NE .O.OR.CFOA.ANO .LBS.NE.O 
CFDS2=CUANDF D .AND . (HBAD.CT.K 1000 > 

CF06=CLAN0FD 

CFD7=CLANDF0.AND.TF07 

CFD62=CL ANDFD . AND. ( . NOT.TF07 ) " 

TFD7=YETA01»P3IEC1 .GT.S.0R.L0CSTR0l*PSIE01.LT.0.OR.N(ABS(PSIE01J-DEG20».LT.0 
CF08=CFD 7.AN0. ( HRAD.LT . Al 200 ) 

CFD9=CCRUZFO . AND. ( GU ID2D.NE .0 ) 

CFOIO=CFD9 .OR . < CFD7. AND . (HR AD. GE. Al 2001 ) 

CFDl 1 =CFD62.0H .CFD8. 0R.CFD9 .OR .CFDip 

CFD112=.N0T.CEX1TI f: _ ' 

CFDI 3=CFD1 1 .AND . (LOCF006=0) i! ' • 

CFDl 1 I =CFD1 1 .AND. (LQCFD06 .NE.O ) : ^ 

CFDl A= < CFDl 1 1 .and . T=D14 ) .OB . <CFD1 3. AND. ( GUI 020=0) I 

TF014 = ( LCCVI.D = 0 ) .OR. (MPILSO 1=0 ) ■ 

CFDl 2= (CFDl 1 1 .AN0.,( .NOT. TFD 14 ) ) .0R.( CFD13.AND.t GUID20.NE.O) 1 

CVCRUZ=C FD 1 1 2 .AND . TV CRUZ 

TVCRU2=LOCF006=O.OR. (GSF,D02=0 .ANO.GSBSNS=0) 

CVLAND1=CFDH .and. TVLAl^bl 

TVLANDl=LOCFD06.NE .0 .AND.GSFD0 2=0 .ANO.GSBSNS.NE.O 
CFDIS=CFD1 1 .AND.( .NOT.TVCRUZl , 

CF01S2=CFD1S.AND. ( FLARE02=0 ) ' ' 

CFD1SS=CFD15.AND.TFD1SS 

TFD155=N (SRLMT( KFLRO 1 .MSKL15 )»2»*a*TP403-K4 1 .lT.O 
TFD 156=N ( N( GANMACO 1 + GSA ) +GSA 1 .LT. 0 

CVCPUZ2=CVCRUZ. AND. ( GU I03D. NE.O 1 ’ 

CyCRUZ3=CVCHUZ . AND . TVCR0Z3 - 

TVCBUZ3= (GUI D30 .NE .0 ) .AND.( MDA .GE .HR AD 1 . AND. { TI MER.NE.SINTME) 

CEXI TO=CVCRUZ.AND. TEXI TO 

CEXIT1=TMEFLG=0 .0R.CCRUZFD.ANO.GUIO2P=0 

CEXI T2=( CFD15 .AND . (GSVLD=0 ) ) . OR. ^VCRUZ . AND. TEX 1T2 I 

CEXI T3=( CFD I 5 .AND . (GSVLD .NE . 0 ) ) .OR. ( CVCBUZ .AND.TEXIT3 > 

TEXI T2=( GUIO3D=0 » .OR . ( TVCRUZ3.AND .(PCMVLD.NE.O) ) 

TExrT3=IGUi.JiJD.NE.O) .and. ((MDA.LT.HRAD ),CR,{( TIMER. NE.BINTMEI. AND, (PCMVL0=0)n 
TEXI T0=( GUID3O.NE.0) .AND. (MDA.GE.HRAD)'..AND* ( TIMER=BINTME) 

1 1 1 i 1 1 1 1 u 

MPILSC 1= AND(PCUMWD.T 12 ) . 

STARTC 1=0 . 

LOCFDO 1=0 

GSF001=0 

START02=SET 

TP101=0 

TP?01 =0 

TP30I =0 

TP40l=0 

TPS01=0 

TP601=0 

TPTnirO 










I 


f=i_AReoi=o 

TP102= . I F. CKD IN3.TMEN.0 .ELSE .Tpl 
T p 20 2= .TFVC FD IN3 . then. 0, else. TP2-. 

TP30a= • I F.CFD IN3.THEN.0 .ELSE.T;P3 i 
TP 4C2=. IF.CFD IN3.THEN.0 .ELSE.TP4 
TP5F2=. I F.CFO1N3.THEN.0 .ELSE.TPS 
TP602=.tF.CFDlfj3. THEN.0iELSE.TP6 
TP702=. I F.CFD IN3.THEN.0 .ELSE.TP7 
LOCFDC3= .SF.CFD JN3 .THEN . 0 .ELSE .LTDCFD 
LbCbC02= • I F.CFD IN3 .THEN. 0 .ELSE .LOCOC 
' rL:ABEC2= .! F.CFD IN3 .THEN .0 .ELSE^FL ARE ■ 

ST ART-C3= . I F.CFD IN3. then .SET .ELSE. START 
YETAO l=MLLT«LOCOEV,K I ) 

PSIE01=N(TK-BdYH0G) 

LOCOC03=£ET 

LOCOCOA= .1 F.CFD3.TMEN.SET.ELSE.LDCOC02 

LDCFD04=SET ; ' • • 

RLFDO J=RCLL 

LOCFD05= .IF .CF042 . THEN .SET . ELS6.LOCF003 
PLFDC2=. IF. CFD42.THEN. ROLL. else. RLFD 

Tpl03A=N (N( YETAOI /PERiqD/PER I0D»KS-TPI02 )/TAUl*0ELTAT/2**3FTP»02» 

TPlCSBsNINlSRLMTIVETAOl.LIMYI/PER IQO/PER t 00 *KS-TPl 02 » /TAU I*DELTAT/ 2 ** 3 »TP 1 02 ) 
TP 103 = * IF.LOCOC 04 = 0 . THEN.TP I 03 A.ELSE . TPl C 3 B _ 

TP 203 =GS/PERIOO»K 6 *PSIE 0 1 *I<;DAMP» 2 A *2 . i 

TP 2 C 4 =N(TP 2 P 3 -TP 702 ) • 

TP7P3=N< TP204»DELT4T/TAU2/2*»6fTP702 ) 

TPEOS*. I F. CF052 .THEN .N( TP20 3-TP70 2) .ELSE .TP203 
TP7p4 = ..I F.CF0S2. THEN .TP703. ELSE. TP7 02 
LOCSTROT =-( SRLMTI N( TP20 5-TP I 03 ) .L IMl 80 ) *2**3 ) 

TPI 04 = . t F.CCPUZFD.THEN.TP 102 .ELSE.TPI 03 
TP 206 =.IF.CCRDZFD.TH 6 NiTP 20 2 .ELSE.TP 20 S 
TP 70 S=.TF.CCRUZFD.THeN.TP 70 2 .ELSE.TP ,704 

CAPT01=iO 
CAPT02=SET 

ACCT = .IF .CFD9 .THEN .L ATSTR.ELSE.LOCSTROl 


( 


AC 02= . IF .CFD62.THEN. AO.ELSE. .IF.CF03 .THEN.SRLMTILOCSTROI .OEG15 > .EUSE.SRLMT I ACOI .DEG2S* 
RCMVLOOI=0 

PCRVLOOI =0 ‘ 

LQCfD 0 6= .IF.CFOINI .T HEN .0 .ELSE .i I F. CL ANOFO* THEN.LOCFD05.ELSE.LOCF003 

BLFD04=n«SRLMT<N(AC0 2-RLFD0 21/2*»2/TAU3.0EG4J»DELTAT*HLFD02J 

RCMDO I=SBLMT(N( RLFD04-R0LL) .DEG2S ) 

RCHVLD02=SET 

RCFVLD03=0 . 

LGAMCO l=GAMMA 

TP303=N( Nt GS0EV4KT ♦27A8-TP302I /TAU4*bELTAT72**4TTP3C2l 

TP403=-N INI TP303/CI 808FAK3+GSA I-K4 ) 

HREF0I = . IF.H0CF4K2 .LT.CiTHEN.(HDCF+K7)*TF/K0.ELSE.IKI0FK7»»TF/K8 

HREF02=. IF.CFOl S2.THEN.HREF0 1 .ELSE.HREF 

FLARE0 3= .IF .KFLHOI -MSKLIS.CT.p .THEN.SET .ELSE.O 

KFlR 01= . IF.CFDl 5.THSN.HRAD/HREF02 .ELSE. KFLR . 

GAMMAC01=. IF.TFDlSS.THEN.NISfiLMTI KFLROI .FSKLlS)»Z»*8»TP403-K4».eLSE.GAHMAC 
LGAMC0 2= .IF .CVLANOl . THEN.GAMMA.ELSE. LGAMC 

TLGAMCO = N(SHLHTINIAO-LGAMC02)/TAUS/'2*43.LIMPRI*DELTAT+LGA«C02) ^ -r» <-Aurn71 

TLGAMC 1 = N( SRLMT(NI-N 'nINIGAMMACOI fGS AI+GSAJhGAMMACOI )-LGAMC02 I/TAUS/2»»3.LIMPH)»3ELTAT-H.GAMC02I 

CGAMC0 3= .IF.tFD ISS .THEN.LGAMC04.ELSE.TLGAMC0 

LGAMC04= .IF. TFD156 .THEN, TLGAMCl .ELSE .TLGAMC2 | 

TLGAHC2=N( SRLMT (N( GAMMACO 1-LGAMCO 2) / TAU5/24A3 ,L IMPR 340ELT AT+LGAMC02) 

GAMCMOO 1=N (LGAMC03-GAMMA ) 

TP603=N( PTTCM-TPS02) 

TPSC3=N( TP60J»DElTAT/TAU6/2**3*TPS02 ) . 

PCMDO I=SRLMT(N(-«TP6P3*FD8KG*2»*3)+GAMCMD01 i .DEG5I 
RCMVL004 =. I F .CFD 1 2 .THEN .SET . ELSE . 0 • 

'’C'*''LO®2’^^^=-^^;^"°‘g„^„^j^g„5^^.^5,.,,,;;/„CS,3.,j,KHO/PIB2.DFG6.-PCMn»rC302*DELTAT/2T.-FPrMD) 


Q S 


El 




PCM002PN ( 






sj 


o 

o 




«***,'> 


















GSFDC3=. IF .CVLANDl .then. SET .ELSE. GSF 002 
PCMD0 3=. IF. CVCRUZa. THEN. PCM00 2. ELSE. PCMDP4 
PCMp04= . IF .TVCRUZ. THEN. PCMO . ELSE .PCMDO 1 
STAPT04=.iF. CFO INI .then. 0. ELSE. ST ART03 

GSFD02=. IF. CFDINI .THEN. 0. ELSE. GSFO I 

YETA02 = . IF. CFDINl .THEN. YETA. ELSE. YETAOt 
PSIE02=. IF.CPDINI .THEN.PSTE.ELSE.PSIEOl 
CAPT03=. IF. CFD7. THEN .SET .ELSE. 0 
RCMVLDOA. = . I F.CFDl 2 .THEN .SET.ELSE.O 
LOCSTR02=. IF .CCPUZFD .THEN.LOCSTR.ELSE.LQCSTROI 
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ASTNT'iUCHX MD : Sf C 1 I J F{ F XXdl?3) 

Cl 01 I A = I A + 1 

ASTNT1JL<H> = 'A' tA •: r 

Cl 1 I V F i Y -F I 

IDCNTC A5TNTBL<H>.AST.MTSL<CL>) :Sl6XXOft3) 

PRFTX<1V> = 'i* ASTNTHL<H> H •'S3!' 

ST0FURV.1FKFTX<1V>) :(C10) 

C 12 HYP <= rOLMT(HYP) CL :S(Pl) 

HYP - HYl’ *<* CL :(P1) » 

» OUTPUT THF THFaHEM, calls, hypotheses. AND CONCLUSIONS OF EACH 

* PROVING STEP IN THL STANOARf; FORMAT 

* ^ ... 
ENDPATHO LO =• 1 

FINISH OUTPUT = 

1 ' ' : . 1 . I : ^ 

> PPTO .1 ■: J = 1 , . 

, ' 51NC =' .L;"' . , . ' ' 

i PRTl , FnTY f . 

r ppFTX<I> UHEAK{*.1.'! . ENTY ' = ;F(PfiT3) 

J OX = OUPLl" '.MAXL<J> +3) 

, OX LF.S:(S12E(ENTY) ) = ENTV 

) SINF. = SINr OK 

J = LTSJ.i) J F I IStPRTl) 

OUTPUT = SINE 

J PWT3 1 = LTt 1 . IV ) 1 F 1 ISCPRTO) 

> PRTS eO = LOtFD.l) 0 :F(PflIA) 

5 OUTPUT = 

3 OUTPUT F KHRMSG , 

^ OUTPUT = 'FAT** THEOMeM; NOT PROVED ♦*«♦*< HENDPAtH). 

•J PRTA TEMP = CONC 

C CT TEMP UAL . C V.’ REM • H2 :F(E3> 

I CC F HYP _ 

^ CC SAL . SI RPM . -FIED) . 

3 IDLNT(Gl.C) :S(E7) 

a CC =■ G,-> ; ... 

^ P 7 : TEMP a D IHFHH (TEm- 7 ) H2 ;F(0i<)SlEt) 

6 FR IDFNTICC.C) :S(S7) 

7 SIMPAGL(C) :F(E10> 

J, OUTPUT a > •' ASTNTSLCO C ' IS AN AXIOM’ ,tE7) 

o F 1.0 ■ ' 7'T a I 


si.' 






OUTPUT = 



/*B1 


OUTPUT = 'UNPROVED CONCLUS ICN ' C : (,E7) 



E3 ■■ 

C = TEMP 



^1B3 


TEMP = : ( E4) 




OK 

OUTPUT ^ ; 



4BG 


TT = EU( TT • 1 ) 0 



466 


OUTPUT = * 

THeOREM NOT PROVED • 


4B7 

OK 1 

OUTPUT = 

0* E. D. ****♦• 


4H0- 


T ~ TIMf* ( ) - 

TST 


4 39 


TIMhrS PTAnt.3) . 

X = X * *' 


490 


-S-teNOPATH) 





OUTPUT =. • 

TIME taken: • TIMES • SEC. 


: i ENDPATHJ 


: (Et'JOP ATH ) 


* ERROR MESSAGES OR ERROR .HANOLING IN THIS PROVING STEP 

491 ENDPATH 1 dent (L iTNE. • fSBaaaaa Baa • ) istcuTP) 

492 IDENTtLENS. • 66666666SG* ) ISIUPDATEO) 

403 LENT. = IN( ) 

404 OUTPUT = LENE KHNOPATH) 

40 5 OUTP OUTPUT = 

406 OUTPUT = 

407 OUTPUT = 

403 OUTPUT = :(ST1) 

400 : b*OEV = lOENt(MACTBL<IX.4>.'P*) • .iUV. • ; 

500 FXXOPl EPiTMSG = 'FORMAT HRHOR IN THE CALL STMT—' LENE llENDPATHO) 

501 EXXDR2 EPOMSG := '.MISS ^.IMP.^ SYMBCL IN THE EXPRESSION-- ' 

*• . HAC : (ENOPATHO ) 

502 EXX'JR3 EPMHSG = 'PMEMISE NOT SATISFIED • H , ' IN THEPPEM • 

*. !CALL • LLnE :(EnOpaTHO) 

503 EXX0H4 OUTPUT - 'NO THEUREM HY THIS NAME OR ERROR IN INPUT SET-UP' 

' + ' — 'LENE :(ENDPATH) 

504 eXXORS ERRMSG = 'ACTUAL AND FORMAL PARAMETERS NOT IN CORRESPONDENCE' 

+ 'lAPL ' APL 'IFPL — • FPL.. •.'IN THEOREM CALL • LENE 

f :(rNOPATlioi 

SOS, EXX0H6 FRUMSG = 'NJ THEOREM BY THIS NAME IN THE THEOREM REPERTOIRE-' 

'-' LENT: :(EN0P4TH0) 

SOP FXXDR7 OUTPUT = ' FORMAT, ERROR IN THEOREM — ' TH 

54,7 OUTI’UT = '+«■*<<>!' theorem NOT PROVED KENDPATH) 

SOB EXXDRO OUTPUT = 'SYNTAX ERROR IN ' LINE ' IN SUBROUTINE—' SUORTN 

f : 1 1- hrTOPN ) 

SP'5 EXXOftlO OUTPUT = 'FrRUR IN INFIX TRAN SFL fiMATlON ' PRINTLINE :(FHETURN1 

bio EXXORll OUTPUT = 'SYNTAX ERROR IN TUATCLpGY: ' TEXT : lEXXORO > 

511 e XXORlE EkRMSG = 'UNOEF I.NSO MACRC NAME I N THE CALL STMT—' LENE 

+ iIENDPATHO) , , 

512 EXX0BI3 OUTPUT = Xl ' IS; NOT AN ABBRCVI ATION DEFINED DR ' 

t xa- ' IS not in the SPECIF IEO ABBREVIATION' MENOPATH) 

513 L-XXORiA OUTPUT = 'SYNTAX ERROR IN HYPOTHESES OR CONCLUSIONS' 

t :(tNOP\TM) 

^ ^ ^ t t * <S * ^ » 

Dt;.F IN{ { UN(y)* ) 

514 IN, Y = TRIMUNPUTJ IFIPRETOPM 

pi£i Y LHNI7PI . Z 'C = Z :F(It\B) 

£316 IN = IN NOSPACF(Y) :(IN) 

517 INd IN = IN MlSPACF(Y) ICBETURM 

» OEF INEl' INI ( Y )' / 







V,.. 
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51B 

519 

520 
321 


52? 

523 

52^ 

525 

526 

527 
523 
52 ^ 

530 

531 

532 

533 

534 

535 

536 

537 


M A CR 


I,Nl Y = TRIM(INPUT) :F(FRETURN) 

Y tEN(79) . 2 'C* - z , :F(INA) 

INI = Y :. < IN 1 ) 

IWA INI = INI y : (RETURN) 

♦♦**»♦**♦ ♦»*<♦«♦♦ »♦♦**♦♦ ♦*« *•*. 

# MACSD OtF IN ITinN 
MACX =0 

OUTPUT - ' U'TCP D£P INtO PACNGS ^ • 

OUTPUT = ■ ■ . 

MACPU = TAbLfcC 1 OC .30) I 

MACTF.U = APrtAV t * 200 .A * ) 

type = 'P' 

MaCTXT ■= INC ) ; 

OUTPUT = V.ACTXT 

tOfcNT(MACTXT.-22’2,222222') -S(HOO) 

TYPr = lUPNTIMACTXT.-lllIIIllll’) If’ ^ 

MACTXT UAL . X •=• RP“H. . MACCOE IFCSIE >MOl )) . 

MACX - MACX +1 

.MAcno<x> » macx - 

hact;)l<macx.4> = TYPE 
MACTUL<MAGX. J> = MACUDE ICPOO) 

*t*Y*A****YA*4:f#*»Y*A*.1.AA*^.**AY+A»»*A««**Y***A 

J, Ot-P INbC 'pl« INT (PI .P2 ) SO . SI . S.:.CUSR ) 

*#»»*.♦»« **YY** Y«* Y*Y*AA*»*A*AA****»<'*t*AA*<'*»+ 


AND 


MUC 


MU4 


553 

5.19 

540 

541 

542 

543 

544 

545 


PR INT 
PR INTC 
PR INTI 


, . )) . SI • -• REM - S2 
SC ! (HAL . SO) 

SI ;F(PHI?4T2) 


:F(PRINT3) 


Pk INT? 
PR 1NT3 


i ^PR I nTI ) 


54 5 
547 
54 « 
549 


5 5 C 
551 

554 
557 

555 

559 

560 

561 

562 


OUTPUT = P? 

CUSP = 0 

PI ITA3(CU5«) UWCAK.1' 

SI (HR* AK,( * t* J 3AL) 

OUTPUT “ i L)LNT( 5 1 1 55 ) 

PI s; Sa : (PHINTO) 

CUSW = SU'^(5l) t- 1 . 

PK.NIA OUTPUT = PI KHETURN) . 

Uyt'dIFPEPCTEXT) 3REAKCS-) . ENTY = :F<RETURN, 

^AXU<1> = ''^T(SI/KFNTY).MAXL<I» SUCCENTY) 

+ ■ t 2 T3.Sil*S21*S31.MA)C.FQUD* ) . 

,3FTAM*S') • T? BBEAK.fi') • T3 • 

MAxV 3) ‘ ^AX . 0TCS2.SI) S2 -. «AX - CTCSB.IAAXT S3 • 

FOI 0 A ■■'AX / A I F 1 
fOCFOUJ. 1) ISISMA) 

Tl Et. ( S ( T 1 ) . A I ) HEM . Sll - 
T1 LFN(Al) . Sll = ' • 

T? U.CSIZElTai.Al) REM .^sai = 

TP EFN I A 1 ) . S21 = • 



sinrOKM 


SM 1 


SM.2 


:S(SM2 ) 
:S(SM3) 


r”'”' 




I wwuB MtwPtatiiftixii . i . i )u i i » .««■ 




:f(checki.) 


Sm 2 T3 Le(SI7F.(T3).'l I) MEM • S3l = IStSMS) 

■T3 LLN(/il) . S3l = • • 

S.v.g PkFTX<lV> = ill, "S' S21 •*• S3 1 

SM4 MAXLFNgtPRFTX<t'/>) 

FOLD = HOLD - 1 

tV-GT(‘^DED*0) IV FI : £t SM 1 )F (RETURN! 

PEF 1NE( •MOSPACECX) * > 

NOEPACE CANCHOR = 0 

NOSPACEO X EPAN< • • 1 ■= T3(N0SPAC£C) 

NOSPACE = X , ' 

C.ANCHOR = 1 -.(RETURN) 

* 4*4 T*A* **«'A*Xi« <=»**’» *«***« 

<1. UEF INE( * CMFCK(X, Y)» ) 

' ♦ THIS ROUTINt CHECKS IF Y IS IN 1(X»; 

CHECK SAVL.0 =: .E.AMCHDH 

SANCHOR = 0 . 

SIX) (POSCO) I ■,’) Y (••• I RPCStO)) :F{CHcCKI.) 

, CANCMOH = SAVED ((RETURN); 

■ CHECK! EANCHDR = SAVFU ((FRETURN) 

affVa#f*a*»»**««»***<t********»»t**** 

* DfcF INF ( • SIMPAUC(EXPR) UTE .RTE' ) 

** * if? FFY AY4 A** A A* *** *<'♦*♦*♦(' « <‘4+** ♦«'*** ♦* 

) S IRPAGL ... 

( . EXPR BAt . LTE •• • PELTN *.• SAL • RTERPOS(O) 

< ' IJM;N1( RENA. ■£()•) IDENTILTE.RTF ) tSIHETURN) 

1 LTE PDS(O) SPANf •0I23456789( )*/F-.BO* ) RPOS„(CJ TF 

, PTE PUS( 0). SPAN! ■ 0lZ'14b378-5( )4 /f-.B0*.} RPOS(O) :F 

j: LTt - !NT£KFH(LrC) , 

i RTE = INIERFMOITF) 

i , LTE = aEVAu(ltE) :f(FRFTukn) 

i, rtf = AFVAL(RTE) • (F(FRETUhN) 

7 S(5(k£NA) •(• LTE ••• RTfc •)• ) : S(RETURN)F IF 

*»**♦»;*-* * A* »F*A*AA**AAAA***A»*A***A*AA*>f*»»*AA** 

* (JFFINFI • AI: VALIEX ) X.Y. 7..W. Y1 . 41 . vM ,PNT. IPWi IPWl.T* » 

■ *****♦«(, aaaaAayaaaaaaafaaaaa*****®******'*'********** 

3 AEVAL OPNSTK = AHrtAY(,*20') 

9 PNT F 0 

D ALO lOtNT(EX) ::S(AL9) : . 

1 EX (UREAKI • • ) . X • • ) 1 REM • * = 

X X I’OSI 0 ) • S' = : 5( AL 1 ) 

3 PNT = LT(PNT.20) PNT + 1 (FCAHt) 

4 X pos(o) 'O' span(digit) . y rpus(o) :f(aloa:) 

a OCTAL - O . ’ . 

fj ALOIS Y nUFLR(Y) LEN(l) . Z = CIALOC) 

7 OCTAL = octal* S + Z (CALOB) 

a ALCC X = OCTAL 'BZ3' 

0 ALCA OPNSTKCPNTP = X : ( ALO ) , 

0 ALI IDENTI X. '+U' ) ISIALO) 

1 X = lOcVTI X. '-U* ) IFIALS) 

p 0PNSTK<(>NT> tSRFAKI 'R’) • Y • G' REM . Z - :FCAL 

3 OPNSTKCPNTX s •(-' Y Z : ( ALO ) . 

4 AL2 0PNSTK<PNT> = -OPNSTK<PNT> ,:(ALO) 

5 ALS PNT = PNT - 1 


:fifreturn) 


IF(FRETUBN) 

:f(FrETORn) 


: StRETURNIFlFRETURN) 






.00003043 : < 

.0 0000 046 :J 

.00000 044 
.00003 031 ■_ 

.00000 032 'V 
.00000033 
.0 

.0000003(1 
.0 0000 037 
,00033038 
.00000 0-39 
>30033040 
.00000041 
.0OOC034S 
.OOOOOOA2 
.00300310 
.000(50 320 
,00000 330 
.i-b000 34Q 

ioooooaso 

.00000339 




.00000390 

.OOOOO'AO'O 

.00000410 

.C0OCCA2O 

.00000430 

.00003440 








i' 

I 

j. 


6 C 6 X = • • X * • 

607 rOSNKX,* ** •) :S(ALf 3 ) 

600 riPNSTK:<PNT> OAE£AK( 'O* ) . Y ■ 6 * REM • Z - ; :S(AL 6 ) . 

6 C 9 : UPtJSTXCPNT + 1 > aREAK(» 0 ') Y * 6 ' PEM • Z = :F(ALB) 

610 1 - nPN 5 TK<PNT> 

Oil I PW = 2 J - Z 

612 ■> IDENTtr.* / •) ,:S(AL 5 A) 

613 : ; ,.. W ,EVAU(Y . ■ * 2 V JPw) ;F(FRETURN) 

61 A OPNSTK<PNT> := LVAL-<T X W) • 0 ? 3 ’ : St ALC > F CF RETURN ) .* 

615 AL 5 A ;w =,£VAU(T.' ^ ^ ' IPW> ;F(FRETUPN) 

616 OPNStK<PNT> i .EVALtW X X ) .*[ 323 ' : S ( ALO ) F ( FPETURN ) 

617 AL 6 OPNSTK<PNT > l> OREAX( * 3 ' > • Yl • 0 * REM • Zl = :S(AL 6 A> 

618 , , T - OPNSTK<PNT + t> 

619 • IPW := Z 3 "- Z ' ■ , 

62 C w .= evAL(Y .•:> 2 ; • IPW) :f (freturn) 

62:1 DPNSTK<PnT> = EVALtvy XT) *823 • IS ( ALO )F ( FftETURN) 

622 AL 6 A. rDENTI X, • ^ • ) : S(AL 6 C > 

623 iPW - 23 - Z 

624 tPWl s 2 J - Zl 

625 .. ■ W = (-'VAUiY .' * Z 'IPW) 

626 W 1 w FVALIYI .» ^ 2 • IPWl ) 

627 ;. lOFNTCX. • / • ) ! :S(AL 65 ) 

628 . OP;nSTK<PNT> cVaL(W X Wl) :S ( ALQ )F < FRETURN ) 

629 AL 60 , ,UPNSTK<PNT? ■ - eV'ALtW X W n .'EO’ : S( ALO ) F ( FRETgRN > 

630 AL 6 C IPW = 23 Zl - Z 

631 W -s; FVAL(Y X Yl ) ; 

632 nP?'l$Tk<PM> = EVALCW • ^ 2 «« • IPvv) •B 23 * :S ( ALO ) Ft FRETURN ) 

633 AL 8 OPNSTK<PNT> = EVAL ( OPNSTK-<PNT> X dPNSTK<PNT -F l>) SStALO) 

F FI FFF.TUPN ) ^ . 

634 AL 5 X = tOlPNTil ) UPNSTX< 1 > F (FRF TURN ) , 

635 X OREAKt 'B* ) /. XI 'B* REM • Yl :riAHO) 

636 X =: rVAUIXl » 2 ■*•<« (23 - • Yl •)*) : S ( Al_ I C )F ( FPETURN > 

637 A U 10 AEVAL, = convert ( X.* INTEGER' ) : S ( HETURH) F t FRETURN ) 

638 AUn OUTPUT “ 'EPPm IN AEVAL ROUTl NE : STACK OPNSTK IS OVERFLOWED* 

F : (FRETUR.N) 

A DEF INE ( • NOpARAXTXT )XL • ) 

AA A A AA AA 

639 NOPAPA TXT POS(C) '(* UAL . TXT •)• RPCS(C) 

640 NUPAPA = TXT ; (RETURN) 

I*; jfift A aAAA «> AAAA A AAA AAA A A AAAAA AA AA AA A A* A A aAAAA AA AAA A A 

: A / DEFINE! ' INTERFM tX ) Z • Y .U.H.OP .XO .HH, XH .COMMAS* ) , 

AAA AAAAA AAAA AA A A A AAAAA AA ■^AAAAA AAA ♦ AAAA AAAAA AAAAAAA 

641 IN TERFM 

'.'642 XO = X 

643 A - K 'Jf* 

64)4 L r- C 

045 H ^ 0 

A A A ' ' . , ' ' . ^ 

AAA 

646 SCM X LFN(l) . Z = 

64»7 Y = SSKZ> 

64 U IDENI(Y) :S{ESS 0 R 1 )F(AY ) 

049 SCNIA STR<L> = Z Y ;(SCN 2 > 

050 PPL L = L + I ' 

' 651 ' Y , 


.0COCO450 
.OCOOO 460 
.00000470 
,00000480 
.OC0QO49O 

► OOOOOSOO 
.00000510 
,00000520 

► O0C00 521 
.Q0OCC530 
.00000 540 
,00000550 
.00000560 
.00000570 
.OCOOO 5S0 
.C0000S90 
.COOOO 600 
.000006:10 
.00000620 
.00000 630 
.03600 640 
.O0COO65O 
.00000660 


.00000690 
,00000700 
.OOOCO 71C 
.0C000712 
.OC0CO72O 
,00000730 
,00000740 
.00000 750 
,00000 760 
.00000770 



il 



652 

t»n3 

654 

655 

656 

657 

6sa 

659 

.660 

661 

662 

663 

664 

665 

666 
66T 
66B 
669 

6TO 

671 

672 

673 

674 

675 

676 

677 
673 
679 


6ac 

681 

en? 

6tl *J 

664 

635 

6H6 

637 

666 

639 

690 

69 1 

692 

693 

694 

695 

696 

697 
690 

699 

700 
7Cl 
7C2 
7C3 
7C4 
705 


X SPAN(4N) . Y = 

X • (* = ;f(scnia) 

H .= 'H' ^ 1 ^ ' 

L = L - I 

STK<H> = "S* Z Y :(PRAL) 

PRO I- = 1. ^ 1 

. ■ Y = . ■ 

X (iTPO ((••' ITRO •B* ITR) I NULL) ) . V = :(SCNJA) 

PR UP OP = • • : ( PROP ) 

PRUM DP = *-0* :(PROP) 

PULP H = H 1 

STK<H> = :(SCN1) 

PRNULL ICeNT(iiTK<H>.'Sf ). :F(ESSCR1) 

H = H - 1 

STH<L> = 'SSI* :(SCN?) 

L = L + I 

PRN X 'IF.' :S(P?iP) 

X ( ITP 'U* ITU) . V = :S(PRN2) 

X ('TRUF.' I TALSC.’ ) . Y = :F(PRNO) 

L = L T I 

srr!<L> = Y ;tsCN2) 

PRNC X 'NUT-^ = iFieSSORl) 

PKNl OP = 'NOT': : IIPPOP) 

pRNP L = L *■ I MSCNIA) ^ 

RRNOT X •=• = :F(PRN1) 

OP = ‘NE* . : (PKUP ) 

PRNOTl X ■ = • = :F(ESS0R1) 

CP = ^ : (PROP) 

SCN2 X LEN( T ) . Z = 

Y = SSP<Z> 

IDFNr( Y) : sbieSSORl )F< *Y ) 

PRP X IPFAKI • .' ) . QP = IFieSSOHl) 

U)LNT(nT<DP>) TSCESSQRl) 

OP = lOeNTtOP) 

OP 1= tO£NTtSTK<H>i 'S. .• ) ••••• 

PROP UP = 'I* CP 
PRCPO FO(H) -ISIPROPI) 

ItSFNTIDP.’SNdT’ ) ISiPROPl) 

STK<HX ID6NT ! OP .* SIF* ). I’t.THEN* | 'SELSE") RPOSCO) ISIPROPl) 
lOLNrC STX<H>. 'S.1F' ) LT( IPR<OP>i 2A) ISIPROPl) 
lOFNT (OP » ' FTHiiN' ) :F(PROPA) 

IDtNTC STK<H>. 'i IF* ) : S tPROPl )F (PR0P2) _ 

PRDPA IDENK OP . ' SPLSe • ) I F(PKOPB ) 

I DENT I STK<H> . * TiTHEN* ) t S( PROP I ) F( PROPS ) . 

PRCPd lUFNTIO". •T.IN* ) IUENT(STK<H>.’ s. • ) ISIPROPl), 
lOFNT (OP , *2. * • ) IPEMTI STK<H> . *'iIN* V IS(RR£)P1) 

OP IDFNT (STK<H> . ' 3. • * ) LOP RPCS(C) IS(PROPl) 

STK<H> (DfNT(OP* *St* ) SYSFTN PP(jS( 0) IS(PROPt) 

(DENT (OP .**.*) ICtNT( STX<H>. •*.’ ) I S< PROP 1 ) 

GT( IPPCOPP. IPR<STK<H>>) IS(PROPl) 

iTK<H> <*3>gl* 1 'SFI’ l 'SSUM* 1 T1.PROO*) RPOS(O) IP(PfiOP2) 

IUtMT( OP • * ' ) :S(PR0P1) 

PRCP2 L = L + 1 
STU<L> = 


STK<H> 


il 


706 H = H - ! : : CPSQPO* 

707 PRCPl H = H *• 1 

705 STK<H> -OP ■ 

706 op PPOSIO) :StPRSET)F(SCNl) 

710 PRSET STK<H - 1> = IDENT ( STKCM - 1 >. • I ( • ) • SS6T( • SSI SCNl> FI ESSORl ) 

711 P(.'HO : QP - Z rlPROP): 

712 PRT' = iFlPilBO) 

712 OP = '“i**' MPPDP) 

PHAL^ 5TK<H> • ( • FA • | 1 I •SET* i rUNC I • FI • > RPOSC 0 ) 

+ - :s( SCNI ) ' 

■715' " STK<H> ■•3i* '■=: '■ 

71 & ■■ H - H + 1 

717 STK<H> = 'SARWAYt' llSCNll 

718 PPGT X. = ISIPPCE) . ■ : 

719 OP = "Gt' :(ppnpi. 

72C PBCe dP = 'GE:' :(PPOP) 

721 PPLT X = IStPKLF) 

722 nP-= 'LT' lIPRilP). : 

723 PRLf. OP = 'L?' :(l>ROP) 

72% PREO UP = 'EO:' . l(PPUP) 

725 PRCO OP = ' .7 :(PPOP) 

726 PRB SH = STI«H> 

727 SH ’-E’ FUNC .. OP HPOS(O) IFIPRRO): , 

728 STP<U +. r > = OP 

729 STR<L + 2> = I ' , 

730 3TR<l <- 1> = •■J.APKAY' 

731 L i L + .! 

732 H = H - 1 : (3 CM2) 

733 PRRO X'.'' ■ 

734 SH (•£,• 1 '11N> 1 "i..' I 'I...' 1 ‘SC r •SARRAVl»> RPOSIOJ 

+ : S;( M 'PHR • XT<3H>J ), 

7 3 7 . L 7= L + I 

736 , STH<L> = STK<il>; 

737 H = ML-(H,1) H - 1 JStPSRlFieSSaRl ) 

738 PRR'I COMMAS = 0 

736 PRRRl COMMAS = lOFNTl STK<H> . • » . ' I COMMAS + 1 iF(PRRR2> 

7%C H s M 1 : (PRH9 1 ) 

7%1 PRRR2 H = I DENTCSl K.<H> . • S( • ) H 1 : S(PRR9S) 

742 L = lUfeMUSTK<H>. 'SARRAY ( • ) L 7 1 :F{PRR93) : 

7A3 STR<L> F 5IK<H - l> i . ' 

74% H = MECH.D H - 2 IFCFSSOFl) . 

7AS I. = L + 1 

77*6 STN<L> =■ COMMAS + 1 

7A7 , C = L + 1 , 

748 STR<L> =3 •iAfiPAY' ;(SCN2) 

746 PRR93 H = tOEMT t STK<H>. ‘SIM • ) H - 1 

7S0 H » IDEM 1 1 STK.<H> ,'*••) H - 1 :F(PRR9%» 

,761 commas - COMMAS + 1 :<P«R92) 

7S2 PRR94 STK<H> CFa- 1 ‘Ef. | -Ep. [ •FI* | •SO.V|‘ 1 : • PROD* ) BPOSI 0 1 

+ IFfESSDRl) 

761 L, = !_ + 1 

764 STR<L> = commas . 

766 L = L 7 1 

756 STR<L> = STK<K> 

767 H a H - 1 : (SCN2 ) 

7Sa PRRR'6 HH = L; 


U 



; FtSSSGRl ) 
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PRRIOI H = IDENT(STK<H>. H - I ;Ft6SSGRl) 

COMMAS = COMMAS + 1 _ , 
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